решить За Количество найденных страниц
1. «Канарейки и щеглы»
2. Канарейки и щеглы
3. Канарейки & щеглы
4. Канарейки I щеглы
5. Канарейки -щеглы
6.-Канарейки щеглы

277

286

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

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

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.