задание 4
Code
var x,i, summ: integer;
begin
write('Введите целое число от 80 до 120: ');
readln(x);
for i:=1 to x do
summ:=summ+(i*i);
writeln('Сумма ',summ);
end.
задание 5
Code
var Matr:array [1..10,1..10] of integer;
i,j:integer;
begin
randomize;
//заполнение массива случайными числами
for i:=1 to 10 do
for j:=1 to 10 do
Matr[i,j]:=random(20)-10;
writeln ('Изначальная матрица');
for i:=1 to 10 do begin
for j:=1 to 10 do
write(Matr[i,j],' ');
writeln; end;
for i:=2 to 10 do
for j:=1 to 10 do
Matr[i,j]:=Matr[i,j]-Matr[1,j];
writeln('Конечная матрица');
for i:=1 to 10 do begin
for j:=1 to 10 do
write(Matr[i,j],' ');
writeln; end;
end.