Регистрация
IsabellaSwan2017
23.07.2021 11:55
Информатика
Есть ответ 👍

Розгадайте ребус і поясніть значення отриманого слова

157
287
Посмотреть ответы 1

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

AgsHiNN05I
AgsHiNN05I
4,5(17 оценок)
2var a: array [1..7] of real ; i: integer; begin write ('заполни массив'); for i: =1 to 7 do begin readln(a[i]); if a[i]> 0 then a[i]: =100; end; writeln ('выведи новый массив'); for i: =1 to 7   do writeln ( a[i]); end. 3  var a: array [1..10] of real; i: integer; s: real; begin s: =0; for i: =1 to 10 do begin readln(a[i]); if   i mod 2=0 then s: =s+a[i]; end; write ('сумма чисел=' s); end.

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