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)
<span>end.</span>

0 0

4 года назад

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

Что является вводам информации с листа бумаги?

Вцк32 [52]

Если в компьютер, то сканер.

0 0

1 год назад

Массив. Найти количество элементов равных 5. Паскаль ABC

Senbonzaura

var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.

0 0

2 года назад

Выходные данные X=345, y=15 определите выходные данные . _______________

ИИрина [28]

Ответ к этому заданию 180

0 0

4 года назад