Задать вопрос
16 июня, 04:45

Паскаль. ввод с клавиатуры

Ввести массив А (n) вещественных чисел. Все положительные элементы переписать в массив А1, найти в нем максимум и поставить его на первое место в А1. Массивы А и А1 распечатать.

+2
Ответы (1)
  1. 16 июня, 07:05
    0
    Var

    A, A1 : array [1 ... 100] of real;

    max, preValue, pre : real;

    i, n : integer;

    begin

    read (n) ;

    max : = A1[1];

    for i : = 1 to n do begin

    read (A[i]) ;

    if (A[i] > 0) then A1[i] = A[i];

    if (A1[i] > max) then max : = A1[i];

    end;

    preValue : = A[1];

    A[1] : = max;

    for i : = 1 to n do begin

    pre : = A[i];

    A[i] : = preValue;

    preValue : = pre;

    end;

    for i : = 1 to n do

    write (A[i], ' ') ;

    writeln () ;

    for i : = 1 to n do

    write (A1[i], ' ') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Паскаль. ввод с клавиатуры Ввести массив А (n) вещественных чисел. Все положительные элементы переписать в массив А1, найти в нем максимум ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы