profile
Опубликовано 5 лет назад по предмету Информатика от ComicSans266

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

  1. Ответ
    Ответ дан Lezvix

    Ответ:

    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.

    Объяснение:

    1. Ответ
      Ответ дан ComicSans266
      Спс
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.