Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
end.

0 0

4 года назад

Прочитать ещё 2 ответа

(Время: 1 сек. Память: 16 Мб Сложность: 28\%)Сложно найти человека, который любит решать однообразные задачки по математике. В п

Limira [77]

uses crt;
var a,b,c,d,x:real; 
begin
clrscr;
 writeln('введите A,B,C'); 
 readln( a,b,c ); 
 d:=sqr(b)-4*a*c; 
 if d<0 then 
 writeln('действительных корней нет') 
 else if d=0 then 
 begin 
 x:=(-b)/2*a; 
 writeln('корень уравнения: ',x); 
 end else 
 begin 
 x:=(-b+sqrt(d))/2*a; 
 writeln('1-ый корень уравнения: ',x); 
 x:=(-b-sqrt(d))/2*a; 
 writeln('2-ой корень уравнения: ',x); 
 end 
end.

P.S. Надеюсь на благодарность и лучший ответ.

0 0

4 года назад