Вот держи.. Было очень легко.. Надеюсь ты поймёшь как это делать.
Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.
Program n1;
var a,v,p,s: real;
begin
write('введите рост: ');
readln(a);
write('введите возраст: ');
readln(v);
write('введите признак(1 - мужчина, 0 - женщина): ');
readln(p);
if p=1 then s:=(3*a-450+v)*0.25+45;
if p=0 then s:=(3*a-450+v)*0.225+40.5;
writeln('идеальный вес: ',s);
end.
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*3.14*r:0:3);
end.