Var
i,n:integer;
begin
readln(N); {вводим N}
For i:=1 to n do
write(Random(100),' '); {выводим псевдослучайные числа в диапазоне [0; 100) }
end.
...
var
a: array [1..100,1..100] of integer;
n,m,i,j:byte;
sr:real;
sum:integer;
begin clrscr;
writeln('Введи кол-во строк: ');
readln(n);
writeln('Столобцов: ');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random (10)+0;
sum:=0;
for i:=1 to n do
for j:=1 to m do
sum:=sum+a[i,j];
sr:=sum/(n*m);
writeln('Среднее арифметичексое: ',sr);
readkey;
end.
P.S.
могу напутать с типами данных
((Х<5)->(Х<3))*((Х<2)->(Х<1)) ⇒ ((1<5)->(1<3))*((1<2)->(1<1)) ⇒
(Истина->Истина)*(Истина->Ложь) ⇒ Истина * Ложь ⇒ Ложь
((Х<5)->(Х<3))*((Х<2)->(Х<1)) ⇒ ((2<5)->(2<3))*((2<2)->(2<1)) ⇒
(Истина->Истина)*(Ложь->Ложь) ⇒ Истина * Истина ⇒ Истина
((Х<5)->(Х<3))*((Х<2)->(Х<1)) ⇒ ((3<5)->(3<3))*((3<2)->(3<1)) ⇒
(Истина->Ложь)*(Ложь->Ложь) ⇒ Ложь * Истина ⇒ Ложь
((Х<5)->(Х<3))*((Х<2)->(Х<1)) ⇒ ((4<5)->(4<3))*((4<2)->(4<1)) ⇒
(Истина->Ложь)*(Ложь->Ложь) ⇒ Ложь * Истина ⇒ Ложь
Папа утром на работе 4 часа
Мама днем 3 часов
я окола 2 часов вечером
Program aaa;
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin
randomize;
writeln ('Введите N, K, R, C');
readln (n,k,c,r);
x:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln ('Введите ',j,'-е число ',i,'-ой строки');
readln (A[i,j]);
//или можно ввести рандомно: A[i,j]:=random(0,1);
if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
then x:=x+1
end
end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
for i:=1 to n do begin
for j:=1 to n do begin
write (A[i,j]:3);
end;
writeln
end;
writeln;
writeln (x)
end.
