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

ответ:

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) на соответствие одному из трех заданных расширений. программа: x=('.')  #строим список из слов по разделителю "точка" y=['htm','html','php']    #задаем список расширений web-страниц  if x[-1] in y:                 #если последнее слово из х есть в списке у     print('это веб-страница')    #выводим положительное сообщение else:                             #иначе     print('что-то другое')          #выводим отрицательное сообщение

Найти количество элементов массива, меньших величины с, введенной с клавиатуры. это кодvar i,k;   for i: =1 to 100 do if a[i]< c then k: =k+1 //c,a- должна быть переменная; showmessage('количество элементов < с =  '+k)end; найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. for i: =1 to 100if a[i]< 0 then k: =k+a[i] else k: =0; showmessage('сумма элементов после отрицательного  =  '+k) ну а над 3 нужно хорошенько подумать