Напишите блок-схему и программу линейного уравнения ax + b = 0 (типа вещ ввод вывод все если )

Question

Информатика: Напишите блок-схему и программу линейного уравнения ax + b = 0 (типа вещ ввод вывод все если )

Kristina2005fomina · Accepted Answer

1)var a:array [1..10] of integer;      i,sum:integer;begin  randomize;  sum:=0;  for i:=1 to 10 do    begin      a[i]:=random(100)-50;      write (a[i], );      if a[i] 0 then sum:=sum+a[i];      end;  writeln;  writeln ( Summa: ,sum);  readln;end. 2)var a:array [1..10] of integer;      i,max,index:integer;begin  for i:=1 to 10 do    begin       write ( A[ ,i, ] = );       readln (a[i]);    end;  max:=a[1];  index:=1;  for i:=2 to 10 do    if a[i] max then      begin        max:=a[i];        index:=i; ...

MOGZ ответил