Паскаль, ребятки? Кто тут гений информатики? Помогите,... - GDZkurokam.ru
Экономика
Гость
2 часа назад
Паскаль, ребятки? Кто тут гений информатики? Помогите, пожалуйста!!! Написать программу и блок-схему

Дан массив из 10 целых чисел, заполненный генератором случайных чисел. Найти минимальный элемент в массиве и подсчитать количество таких элементов в массиве.
Ответы:
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]
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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Паскаль, ребятки? Кто тут гений информатики? Помогите, пожалуйста!!! Написать программу и блок-схему

Дан массив из 10 целых чисел, заполненный генератором случайных чисел. Найти минимальный элемент в массиве и подсчитать количество таких элементов в массиве. по предмету Экономика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Найти другие ответы