Помогите пожалуйста написать программы на языке Паскаль
Приложения:
Сори, что сразу не добавила)
program Zadacha9;
var x, max , n: integer;
begin
readln (n);
max:=0;
while (n <> 0) do begin
readln (x);
if ((maxthen max := x;
n:=n-1;
end;
writeln (max);
end.
var x, max , n: integer;
begin
readln (n);
max:=0;
while (n <> 0) do begin
readln (x);
if ((maxthen max := x;
n:=n-1;
end;
writeln (max);
end.
так кусок кода отрезает
Ответы на вопрос
Ответил WhiteFox025
1
Ответ:
Объяснение:
7)
program Zadacha7;
var x, max: integer;
begin
readln (x);
max:=x;
while (x <> 0) do begin
readln (x);
if (max<x)
then max := x;
end;
writeln (max);
end.
8)
program Zadacha8;
var x, min: integer;
begin
readln (x);
min:=x;
while (x <> 0) do begin
readln (x);
if (min>x)
then min := x;
end;
writeln (min);
end.
9)
Сейчас напишу и дополню
program Zadacha9;
var x, max , n: integer;
begin
readln (n);
max:=0;
while (n <> 0) do begin
readln (x);
if ((maxthen max := x;
n:=n-1;
end;
writeln (max);
end.
var x, max , n: integer;
begin
readln (n);
max:=0;
while (n <> 0) do begin
readln (x);
if ((maxthen max := x;
n:=n-1;
end;
writeln (max);
end.
Короче, строчка где If
выглядит так:
if (( max > x ) and ( max mod 5 = 0)) then max:=x;
остальное сюда вроде верно прикрепилось
Спасибо )
Да нез)
Новые вопросы
var x, max , n: integer;
begin
readln (n);
max:=0;
while (n <> 0) do begin
readln (x);
if ((maxthen max := x;
n:=n-1;
end;
writeln (max);
end.