При считывании текстового файла с диска пользователь должен указать ?

142

336

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

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

rezeda231281

Информатика

4,6(10 оценок)

Путь к файлу (например c: \file.txt)

kdjdn25

Информатика

4,5(36 оценок)

Program zadacha; var a: array [1..12] of integer; i, o, k, z, j: integer; s: real; begin writeln('vvedite kolichestvo osadkov'); for i: =1 to 12 do read(a[i]); o: =0; for i: =1 to 12 do o: =o+a[i]; writeln('obshee kolichestvo osadkov=',o); s: =o/12; writeln('srednee kolichestvo=',s: 3: 2); k: =0; for i: =1 to 12 do if a[i]< 30 then k: =k+1; writeln('kolichestvo zasushlivih=',k); j: =30; for i: =1 to 12 do if a[i] begin j: =[i]; z: =i; end; writeln('samiy zasusliviy mesyac=',z); readln; end.