дан массив из 30 чисел, найти количество минимумов

5-9 класс

Elizabet1234 22 февр. 2015 г., 12:42:15 (9 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

нАстюхА9

22 февр. 2015 г., 14:03:25 (9 лет назад)

var
mas:array[1..30] of integer;
min,i,count:integer;
begin
min:=maxint;
randomize;
for i:=1 to 30 do
begin
mas[i]:=random(100);
if (mas[i]<min) then min:=mas[i];
if (mas[i]=min) then count:=count+1;
end;
writeln (count);
end.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Alisa1998alisa

22 февр. 2015 г., 16:06:06 (9 лет назад)

var
mas:array[1..30] of integer;
min,i,count:integer;
begin
min:=maxint;
randomize;
for i:=1 to 30 do
begin
mas[i]:=random(100);
if (mas[i]<min) then min:=mas[i];
end;

for i:=1 to 30 do

if (mas[i]=min) then count:=count+1;
writeln (count);
end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Swetik164 / 13 февр. 2015 г., 23:34:44

Помогите пожалуйста! Тема:сложные таблицы.(Создаем сайт)(Команды в блокноте) Нужно написать команды, при которых, на сайте создается такая

таблица(файл вложен).

Вот пример с тремя столбцами и с тремя строчками.Но там нужно как-то по другому немного :

<html>
<head>
<title>Работа с таблицой</title>
</head>
<body>
<table border="2">
</tr>
<tr><thcolspan="2"<первая строка</td></tr>
<td>ячейка</td>
<td>ячейка</td>
</tr>
<tr>
<td> ячейка 1</td>
<td> ячейка 2</td>
</tr>
<tr>
<td> ячейка 1</td>
<td> ячейка 2</td>
</tr>
</table>
</body>
</html>