Uses Crt;
const n=5; m=7;
type Mas = array [1..n, 1..m] of integer;
var i, j, j1, j2: integer;
Sumj1, Sumj2: real;
A: Mas;
begin
ClrScr;
Randomize;
SumJ1:=0; SumJ2:=0;
for i:=1 to n do
for j:=1 to m do
A[i,j]:=random (10);
WriteLn (' Massiv A: ');
for i:=1 to n do
begin
for j:=1 to m do
Write (A[i,j]:4);
WriteLn;
end; WriteLn;
repeat
Write (' Stolbez #1 = '); ReadLn(j1);
until (j1>=1) and (j1<=m);
repeat
Write (' Stolbez #2 = '); ReadLn(j2);
until (j2>=1) and (j2<=m) and (j1<>j2);
for i:= 1 to n do
SumJ1 := SumJ1+A[i,j1];
for i:= 1 to n do
SumJ2:=SumJ2+A[i,j2];
SumJ1:=SumJ1/n; SumJ2:=SumJ2/n;
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2);
ReadLn;
<span>end.</span>
Каков вопрос - таков ответ:
var x,y:integer;
begin
write('x = ');
readln(x);
y:=random(1000)+1;
writeln('Делю число ',y,' на ',x,': ',y,'/',x,' = ',y/x);
end.
Пример:
<span>x = 5
Делю число 595 на 5: 595/5 = 119</span>
Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
Создавать модель - это значит сконструировать предмет в уменьшенном размере.