Микрофон-запись звуковых данных
Сканер-представление графической информации в электронном виде
Монитор-вывод графической информации
Мышь-преобразование движения в управляющий сигнал
Наушники-вывод звуковой информации
Процессор-обработка данных
Принтер-вывод графической информации
3, и 4 неправильно. После переименования, или название не стоит точка
а в программном блоке может оканчиваться не только var
uses crt;
var i,j,min,n,m :integer; s:real;
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
begin
readln(n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(25)+1;
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end; writeln;
WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
s:=s+min;
Write(min,' ');
end;
writeln('avg = ',(s/n):0:1);
end.
Вот код и результат выполнения программы на ЯП Python3.6.2
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.