Решить задачки:4: Ввести три числа и найти наивеличайшее из них. Пример:
Решить задачки:
4: Ввести три числа и отыскать наибольшее из них. Пример: Введите три числа: 4 15 9 Величайшее число 15 5: Ввести 5 чисел и найти наивеличайшее из их. Пример: Введите 5 чисел: 4 15 9 56 4 Наивеличайшее число 56
4:
var a: array [1..3] of integer;
i,min,max : integer;
begin
for i:= 1 to 3 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
min:= a[1];
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] lt; min then
begin
min:= a[i];
end;
end;
for i:= 1 to 3 do
begin
if a[i] gt; max then
begin
max:= a[i];
end;
end;
writeln('min = ',min);
writeln('max = ',max);
end.
5:
var a: array [1..5] of integer;
i,max : integer;
begin
for i:= 1 to 5 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] gt; max then
begin
max:= a[i];
end;
end;
writeln('max = ',max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.