Регистрация
Maksim55666
07.01.2023 15:07
Информатика
Есть ответ 👍

Решите только левый вариант

169
336
Посмотреть ответы 1

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

Okladakey
Okladakey
4,4(43 оценок)
Const   nx = 30; var   a: array[1..nx]of integer; i,n,s,p: integer; begin writeln('введите число элементов массива'); read(n); p: =1; randomize; for i: = 1 to n do   begin  a[i]: = random(25)-10;   if i mod 2 = 0 then begin s: = s + a[i]; p: =p * a[i];   write(a[i]: 4);   end;   end; writeln; writeln('массив х[',n,']');   for i: = 1 to n do     write(a[i]: 4);   writeln; writeln('сумма s = ', s);   writeln('произведение р = ', p);   end.

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