Практическая работа №23. сумма значений элементов массива уровень a. напишите программу, которая заполняет массив из 10 элементов случайными чис-лами на отрезке [–5; 5] и находит сумму ненулевых элементов. уровень b. напишите программу, которая заполняет массив из 10 элементов случайными чис-лами на отрезке [–2; 2] и находит произведение ненулевых элементов. уровень c. напишите программу, которая заполняет массив из 20 элементов случайными чис-лами на отрезке [100; 1000] и находит отдельно сумму элементов в первой и во вто-рой половинах массива

#1

var

mas : array [1..10] of integer;

sum : integer : = 0;

begin

for var i: =1 to 10 do begin

mas[i] : = random(-5,5);

if (mas[i] < > 0) then

sum += mas[i];

end;

writeln(sum);

end.

#2

var

mas : array [1..10] of integer;

sum : integer : = 1;

begin

for var i: =1 to 10 do begin

mas[i] : = random(-2,2);

if (mas[i] < > 0) then

sum *= mas[i];

end;

writeln(sum);

end.

#3

var

mas : array [1..20] of integer;

sum : integer : = 0;

sum1 : integer : = 0;

begin

for var i: =1 to 20 do begin

mas[i] : = random(100,1000);

if (i < 11) then sum += mas[i];

if (i > = 11) then sum1 += mas[i];

end;

writeln(sum + ' ' + sum1);

end.

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра