var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.
var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.