объем сферы, радиус которой передается как параметр

@Andres92 · Регистрация: 28.06.2010

Author24 — интернет-сервис помощи студентам

1. Даны массивы вещественных чисел A и B с одинаковым количеством элементов. Найти сумму положительных элементов в этих массивах.

2.Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр.

@isqoff · 28.06.2010, 15:25

задача №1 :

Pascal

uses crt;
var
     a,b:array[1..10]of real;
     i:integer;
     sum_a,sum_b:real;
BEGIN
    sum_a:=0;
    sum_b:=0;
    
    for i:=1 to 10 do
    begin
        a[i]:=random(5)-2;
        b[i]:=random(5)-2;
    end;
    
    for i:=1 to 10 do
    begin
        if a[i]>0 then sum_a:=sum_a+a[i];
        if b[i]>0 then sum_b:=sum_b+b[i];
    end;
 
             
   writeln('summa pjlojitelnih chisel massiva a[]= ',sum_a);
   writeln('summa pjlojitelnih chisel massiva b[]= ',sum_b);
END.

@sheka · 28.06.2010, 15:30

#2

Delphi

function V(r : real) : real;
begin
  V:=4/3*pi*r*r*r;
end;

@Andres92 0 / 0 / 0 Регистрация: 28.06.2010 Сообщений: 4
		1
	объем сферы, радиус которой передается как параметр 28.06.2010, 14:45. Показов 1372. Ответов 2 Метки нет (Все метки) 1. Даны массивы вещественных чисел A и B с одинаковым количеством элементов. Найти сумму положительных элементов в этих массивах. 2.Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр. 0

	28.06.2010, 15:30

объем сферы, радиус которой передается как параметр

Решение