uses crt;
var matr: array [1..5,1..5] of integer;
var i,j,sum: integer;
begin
clrscr;
Randomize;
sum:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
matr[i,j]:=Random(101)-50;
end;
end;
Writeln('Ishodnaya matritca:');
for i:=1 to 5 do begin
writeln('');
for j:=1 to 5 do
Write(matr[i,j]:5,' ');
end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if matr[i,j]>0 then begin
sum:=sum+matr[i,j];
end;
end;
end;
writeln('');
Writeln('Summa vseh chisel > 0 ravna ',sum);
for i:=1 to 5 do begin
for j:=1 to 5 do
if i=j then
matr[i,j]:=sum;
end;
Writeln('Preobrazovannaya matritca:');
for i:=1 to 5 do begin
writeln('');
for j:=1 to 5 do
Write(matr[i,j]:5,' ');
end;
readln;
end.
массив паскаль
программа формирования массива размером 5*5 с помощью датчика случайных чисел, заменив в нем значение элементов главной диагонали на сумму всех положительных значений элементов массива. выведите на экран исходный и изменённый массивы
Кидайте наработки и что не получается - помогу:)
я понятия не имею как делать эти задачи
Код:
Конечно лучше было бы оформить всё в функции, но это я думаю сами сделаете, если захотите;)