Дан массив из 10 чисел. Определите, сколько элементов этого массива имеют минимальное значение.
(Паскаль)
(Паскаль)
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Тишунетта
Если одномерный массив, то:
program min;
var a:array[1 ... 10] of integer;
i, min, k:integer;
begin
writeln ('Введите элементы массива') ;
for i:=1 to 10 do
readln (a[i]) ;
min:=a;
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln ('Всего элементов с минимальным значением = ', k) ;
end.
program min;
var a:array[1 ... 10] of integer;
i, min, k:integer;
begin
writeln ('Введите элементы массива') ;
for i:=1 to 10 do
readln (a[i]) ;
min:=a;
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln ('Всего элементов с минимальным значением = ', k) ;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
