BrightOne
Program max; const N = 4; var nums: array [1..N] of integer; strs: array [1..N] of string[20] = ('первое', 'второе', 'третье', 'четвёртое'); i, max: integer; begin for i := 1 to N do begin write(strs[i], ' число: ') readln(nums[i]); end; max := 0; for i := 1 to N do if nums[i] > max then max := nums[i]; writeln('максимальное: ', max); end.
Answers & Comments
const
N = 4;
var
nums: array [1..N] of integer;
strs: array [1..N] of string[20] = ('первое', 'второе', 'третье', 'четвёртое');
i, max: integer;
begin
for i := 1 to N do
begin
write(strs[i], ' число: ')
readln(nums[i]);
end;
max := 0;
for i := 1 to N do
if nums[i] > max then
max := nums[i];
writeln('максимальное: ', max);
end.