Регистрация
Dasha0653
27.10.2020 02:50
Информатика
Есть ответ 👍

информатика информатика​

193
315
Посмотреть ответы 1

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

district31
district31
4,5(16 оценок)
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.

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