Регистрация
kipenkolya
02.06.2020 15:41
Информатика
Есть ответ 👍

Составить программу нахождения корней квадратного уравнения если a=3 b=34 c=4b и выводящую ответ на экран

295
382
Посмотреть ответы 1

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

elitael
elitael
4,7(67 оценок)

ответ:

var a: array [1..10] of integer;

i,j: integer;

begin

  j: =1;

  for i: =1 to 10 do a[i]: =random(10);

  writeln ('массив: ');

  writeln (a);

  for i: =1 to 10 do

  if (a[i] mod 2=0) and (a[i]< > 0)   then j: =j*a[i];

  a[10]: =j;

  writeln ('ответ: ');

  writeln (a);

end.

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