Регистрация
1234567891155
26.03.2020 20:34
Информатика
Есть ответ 👍

Розв'язати квадратну рівняння ax ²+bx=c=0

141
437
Посмотреть ответы 1

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

snkashleva133
snkashleva133
4,7(12 оценок)
Program n1; const n=10; var a: array [1..n] of integer; i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(15)+1; write(a[i],' '); end; writeln; writeln('полученный массив: '); for i: =1 to n do begin a[i]: =a[i]*5; write(a[i],' '); end; end.

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