Регистрация
умно55567
10.10.2021 06:21
Информатика
Есть ответ 👍

Складіть блок-схему по знаходженню коренів квадратного рівняння через дискримінант

124
136
Посмотреть ответы 1

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

Andreykins1
Andreykins1
4,4(34 оценок)
Var sum,i: integer; a: array[1..12] of integer; begin writeln('исходный массив: '); sum: =0; for i: =1 to 12 do  begin a[i]: =random(20); write(a[i],' '); if i mod 2=0 then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end.

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