Предмет: Информатика,
автор: 89112948751
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное)
Ответы
Автор ответа:
1
судя по логике только 1-минимальный,уточни задание
89112948751:
Это я понимаю,что 1,надо программу составить
создаешь массив,переменную мин потом присваиваешь значение переменной первый элемент массива и в цикле сравниваешь с ним все если меньше то мас[и] минимальный
Плиз,распиши в паскале(((
program zadacha;
vara: array[1..10] of integer;i,max,n: integer;
beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];
for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.
Понимаю как максимальное,а как минимальное нееет((((
vara: array[1..10] of integer;i,max,n: integer;
beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];
for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.
Понимаю как максимальное,а как минимальное нееет((((
так же,только знак другой,меньше
ar i,min: Integer;
mas:array[1..10] of Integer ;
begin
min:=mas[1];
Randomize();
for i:=1 to 10 do
begin
mas[i]:=Random(20);
write(' ',mas[i]);
if(mas[i]end;
WriteLn();
writeln('minimal ',min);
end.
mas:array[1..10] of Integer ;
begin
min:=mas[1];
Randomize();
for i:=1 to 10 do
begin
mas[i]:=Random(20);
write(' ',mas[i]);
if(mas[i]end;
WriteLn();
writeln('minimal ',min);
end.
vot
Спасибо))
Похожие вопросы
Предмет: Биология,
автор: asultanhan2008
Предмет: Литература,
автор: diana092020050
Предмет: Физкультура и спорт,
автор: ekaterinasigorceva
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: aliyevi2004