Регистрация
деня1990
31.08.2021 07:58
Информатика
Есть ответ 👍

единственная тройка по информатике ​

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

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

2006zahar2006
2006zahar2006
4,4(40 оценок)
Program p12; type tab=array[1..10] of integer; var t: tab; i,k,min: integer; begin min: =100; for i: =1 to 10 do t[i]: =random(10); for i: =1 to 10 do if(t[i]< min) then min: =t[i]; for i: =1 to 10 do if(t[i]=min) then k: =k+1; write('массив: '); for i: =1 to 10 do write(t[i],' '); writeln; writeln('меньшее число ',min); write('количество меньших чисел ',k); end.

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