Регистрация
SaharKchayu
15.09.2021 07:36
Информатика
Есть ответ 👍

Найдите произведение положительных элементов в массиве

248
343
Посмотреть ответы 2

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

ПэкДжин
ПэкДжин
4,6(66 оценок)
Var a: array[1..33] of integer; i: integer; p: real; begin write('массив: '); p: =1; for i: = 1 to 33 do       begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]> 0 then p: =p*a[i];       end; writeln; write(p) end.
twijuli
twijuli
4,4(51 оценок)
Получится так: program p1; var a: integer; begin  write('введите день недели: ');   readln(a);   case a of    1..5: writeln('в этот день у вас 7 уроков');     6,7: writeln('в выходной у вас нету уроков! ');       else writeln('вы неверно ввели день! ');   end; end.

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