Регистрация
iwanttobelllllive
08.05.2021 20:58
Информатика
Есть ответ 👍

Объявить массив из 4-х элементов, заполнить его с клавиатуры и найти максимальное. сам массив и макс записать в файл. pascal.abs

239
377
Посмотреть ответы 2

Ответы на вопрос:

Belka172
Belka172
4,4(43 оценок)

ответ:

program max;

var

    massiv: array [1..4] of integer;

    i: integer;

    max: integer;

    filetext: text;

begin

  assign(filetext,'c: \text.txt');

  rewrite (filetext);

  for i: =1 to 4 do begin

        readln(massiv[i]);

        writeln(filetext,massiv[i]);

  end;

  max : = massiv[1];

  for i: =2 to 4 do begin

        if massiv[i]> max then

          max : = massiv[i];

  end;

  writeln(filetext,max);

  close(filetext);

end.

объяснение:

умница06092006
умница06092006
4,8(28 оценок)
Я , только мне щас нужна очень, я на уроке.

Популярно: Информатика