var n,i,max:integer;
a:array[1..10000] of integer;
begin
randomize;
writeln('Введите кол.натур. чисел: ');
read(n);
for i:=1 to n do begin
a[i]:= random(n*n);
write(a[i],' ');
//read(a[i]); //Если нужен ввод с клавиатуры
end;
writeln;
max:=a[1];
for i:=1 to n do begin
if a[i]>= max then
begin
max:=a[i];
end;
end;
writeln('Наибольшее число:', max);
end.
Var a,max:integer;
begin
max:=0;
repeat
readln(a);
if a>max then max:=a;
until a=0;
writeln('max: ',max);
end.
Вариант с циклом while
var a,max:integer;
begin
writeln('Введите число: ');
readln(a); max:=a;
while a<>0 do begin
writeln('Введите число: ');
readln(a);
if a>max then max:=a;
end;
writeln('max: ',max);
end.
1.источник информации2.информационный канал 3.приемник
Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
В каких паскалях?!! Где условие задачи?