1составить программу на языке паскаль. написать программу, заносящую в файл массив из 7 вещественных чисел, введенных с клавиатуры, а потом считывающую этот массив и выводящую на экран количество отрицательных элементов. если таких нет, то выдать об этом сообщение. 2. составить программу на языке паскаль. описать функцию нахождения максимума для двух величин. ввести с клавиатуры a, b, c, d. для каждой пары величин найти максимальную, а потом напечатать большее из максимальных величин.

1) var f: text; a: array[1..7] of real; i,k,c,x: integer; s: string; begin   for i: =1 to 7 do     begin     readln(x);     a[i]: =x;     end;   assign(f,'file.txt');   rewrite(f);   for i: =1 to 7 do     begin     str(a[i],s);     writeln(f,s);     end;   close(f);   reset(f);   k: =0;   while not eof(f) do     begin     readln(f,s);     val(s,x,c);     if x< 0 then k: =k+1;     end;   close(f);   if k< > 0 then writeln('в массиве ',k,' отрицательных элемента(ов)');   else writeln('в массиве нет отрицательных элементов');   erase(f); end. 2) var a,b,c,d: integer; function max(a,b: integer): integer; begin   if a> b then max: =a   else max: =b; end; begin   readln(a,b,c,d);   a: =(max(a,b));     b: =(max(c,d));   writeln('max=',max(a,b)); end.

Program asd; uses crt; var n,m,min: integer;   r: real; begin  write('введите число    n: ');   readln(n);   write('введите число  m: ');   readln(m);   if n> m then min: =m  else min: =n;       if (n> 100) and (m> 100) then  begin      n: =min;     m: =min;       writeln('n= ',n,' m= ',m);   end;     if (n> 0) and (m< 0) then    writeln('n= ',n/2,' m= ',m/2)      else      r: =(n+m)/2;       writeln('среднее арифм. :     ',r);     end.

Var     i: integer;     t: array[1..3,0..31]of real; begin write('введите температуру в декабре по дням: '); for i: =1 to 31 do   begin   readln(t[1,i]);   t[1,0]: =t[1,0]+t[1,i];   end; t[1,0]: =t[1,0]/31; write('введите температуру в январе по дням: '); for i: =1 to 31 do   begin   readln(t[2,i]);   t[2,0]: =t[2,0]+t[2,i];   end; t[2,0]: =t[2,0]/31; write('введите температуру в феврале по дням: '); for i: =1 to 28 do   begin   readln(t[3,i]);   t[3,0]: =t[3,0]+t[3,i];   end; t[3,0]: =t[3,0]/28; writeln('средняя температура в декабре: ',t[1,0]); writeln('средняя температура в январе: ',t[2,0]); writeln('средняя температура в феврале: ',t[3,0]); writeln('средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.