Как сделать данную программу с вводом своих любых чисел? var k, m : integer; dat: array[1..10] of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8] : = 12; dat[9] : = 15; dat[10] : = 35; m : = 0; for k : = 1 to 10 do; if dat[k]> m then begin m : = dat[k] end; writeln(m); end.
Var k, m : integer;
Dat: array[1..10] of integer;
Begin
for k:=1 to 10 do
Readln (Dat[k]);
m := 0;
for k := 1 to 10 do;
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.