ПОМОГИТЕ СРОЧНО С ЗАДАЧЕЙ НА PASCAL, ПОЖАЛУЙСТА!!!
Ответы на вопрос
Ответ:
var
i,j,sum:integer;
a:array[1..10,1..10] of integer;
begin
randomize;
//Заполним массив случайными числами
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=random(100)-50;
end;
//Выведем массив
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(a[i,j],' ');
end;
writeln;
end;
//Вычислим сумму
sum:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
for j:=1 to 10 do
begin
if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];
end;
end;
writeln('Result: ',sum);
Объяснение:
https://onlinegdb.com/SyR-nu_fU
//Ввод с клавиатуры
var
i,j,sum:integer;
a:array[1..10,1..10] of integer;
begin
randomize;
//Заполним массив случайными числами
for i:=1 to 10 do
for j:=1 to 10 do
begin
// a[i,j]:=random(100)-50;
//сделаем ввод с клавиатуры
readln(a[i,j]);
end;
//Выведем массив
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(a[i,j],' ');
end;
writeln;
end;
//Вычислим сумму
sum:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
for j:=1 to 10 do
begin
if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];
end;
end;
writeln('Result: ',sum);
end.