Какой тип имеет переменная h если после выполнения оператора Write (h)на экран было увидено следующее: 1448
188
276
Ответы на вопрос:
Var a: array[1..100] of integer; i, n: integer; sum, product, harmonic: real; begin n : = 50; writeln('данные массива: '); for i : = 1 to n do begin a[i] : = random(60); write(a[i], ' '); end; writeln(); {подсчет суммы и произведения и агригатов} sum : = 0; product : = 1; for i : = 1 to n do if i mod 2 = 0 then sum : = sum + a[i] else product : = product * a[i]; writeln('sum = ', sum); writeln('product = ', product); end.
Популярно: Информатика
-
pikuss12.02.2023 17:46
-
любимая2406.04.2021 00:49
-
partybally03.04.2023 11:23
-
Sultanika31.01.2020 20:46
-
korostin200424.07.2022 20:16
-
kisel201413.11.2022 02:33
-
Remrans03.10.2021 00:07
-
АнгелинаМанакова04.12.2022 23:13
-
nastyakarina11206.02.2022 04:14
-
SteeISeries17.06.2020 19:09