Program mas; Type mass=array[1..10] of integer; var m: mass; i,a: integer; begin for i:=1 to 10 do begin read(m[i]); end; a:=m[1]; for i:=2 to 10 do begin if a<m[i] then a:=m[i]; end; writeln(a); end. Вот программа с вводом данных в массив и нахождение большего элемента в нём
Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.
Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.
Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов
Год первого полета человека в космос- 1961 год, Ю. Гагарин
Год принятия христианства на Руси- 988 год.
Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"
Год начала великой отечественной войны- 1941 год,
Год запуска первого искусственного спутника земли- 1957 год, «Спутник-1», СССР
Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.
Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.
Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов
Год первого полета человека в космос- 1961 год, Ю. Гагарин
Год принятия христианства на Руси- 988 год.
Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"
Год начала великой отечественной войны- 1941 год,
Год запуска первого искусственного спутника земли- 1957 год, «Спутник-1», СССР
Type mass=array[1..10] of integer;
var m: mass;
i,a: integer;
begin
for i:=1 to 10 do begin
read(m[i]);
end;
a:=m[1];
for i:=2 to 10 do begin
if a<m[i] then a:=m[i];
end;
writeln(a);
end.
Вот программа с вводом данных в массив и нахождение большего элемента в нём