Вопрос ПОМОГИТЕ! Нужно решить задачу в паскале. Информатика, 9 класс.
- Автор темы Dauren
- Дата начала
#include < iostream > int main() { int Min, Max, Current; for (int x = 0; x < 5; x++) { std::cin >> Current; x == 0? Min = Current, Max = Current : 0; Min = Current < Min? Current : Min; Max = Current > Max? Current : Max; } std::cout << Max << " + " << Min << " = " << Max + Min << std::endl; }
[THIDE="0"]var
i,n : integer;
a : array [1..1000] of real;
min, max : real;
begin
writeln('Количество чисел для ввода:');
readln
;
for i := 1 to n do
begin
Write('Введите число номер ' , i ,' = ');
Readln(A);
end;
max := A[1]; min := A[1];
for i := 1 to n do
begin
if min > A then min := A;
if max < A then max := A;
end;
Writeln;
Writeln('Ответ: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3);
end.[/THIDE]
i,n : integer;
a : array [1..1000] of real;
min, max : real;
begin
writeln('Количество чисел для ввода:');
readln
;for i := 1 to n do
begin
Write('Введите число номер ' , i ,' = ');
Readln(A);
end;
max := A[1]; min := A[1];
for i := 1 to n do
begin
if min > A then min := A;
if max < A then max := A;
end;
Writeln;
Writeln('Ответ: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3);
end.[/THIDE]