Пользователь работал с каталогом < Укажи полный путь для того каталога, в котором оказался пользователь:
А. D:\ДОКУМЕНТЫ\ФОТО\ИНФОРМАТИКА
Б. D:\ДОКУМЕНТЫ\ИНФОРМАТИКА\ЭКЗАМЕН
В. D:\ДОКУМЕНТЫ\ЭКЗАМЕН\ИФОРМАТИКА
Г. D:\ДОКУМЕНТЫ\ФОТО\2011\ВЕСНА\ЭКЗАМЕН\ИНФОРМАТИКА

276

386

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

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

avysocka

Информатика

4,8(34 оценок)

Program mas1; var a: array[1..100] of integer; i,k,n: integer; begin randomize; k: =0; writeln('введите размерность массива',n); readln(n); for i: =1 to n do a[i]: =random(10)+1; readln; for i: =1 to n do begin if a[i]=1 then k: =k+1; end; writeln('k=',k); readln; end.