Регистрация
Alik2017
02.10.2022 10:43
Информатика
Есть ответ 👍

1. составить программу для нахождения произведения 5 элементов массива в паскале. 2. составить программу для нахождения суммы 5 элементов массива в паскале. нужно на завтра !

294
425
Посмотреть ответы 2

Ответы на вопрос:

ЛориXD
ЛориXD
4,7(19 оценок)
Var a: array[1..5] of integer; i,p: integer; begin p: =1; for i: =1 to 5 do begin   a[i]: =random(-10,10);   p*=a[i];   write(a[i], ' ');   end; writeln(); writeln(p); end.var a: array[1..5] of integer; i,s: integer; beginfor i: =1 to 5 do begin  a[i]: =random(-10,10);   s+=a[i];   write(a[i], ' ');   end; writeln(); writeln(s); end.
1672карина2140
1672карина2140
4,4(41 оценок)

var

 x,y,z:real;

begin

 x := -1.0 * (0.2) * 1.0;

 if x < 0 then y := tan(sqr(x))

 else y := 1 + x*x*x;

 z := exp(y) + sqrt(abs(sin(y*y*y)));

 writeln(z);

end.

Популярно: Информатика