Регистрация
любимая24
29.06.2021 14:22
Информатика
Есть ответ 👍

с информатикой 8 класс С БАЛЛОВ!!!

283
496
Посмотреть ответы 1

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

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

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