Вопрос по информатике:
Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30)
Подсчитайте k количество элементов, значение которых превышает 15
Пожаловаться
- 08.12.2017 01:58
- Информатика
- remove_red_eye 1312
- thumb_up 29
Ответы и объяснения 2
Var
a: array[1..18] of integer;
i, j,k: integer;
begin
for i := 1 to 18 do begin
a[i]:=random(30);
write(a[i]:3, ' ');
end;
writeln;
for i := 1 to 18 do begin
if a[i]>15 then k:=k+1;
end;
write(k);
readln; end.
a: array[1..18] of integer;
i, j,k: integer;
begin
for i := 1 to 18 do begin
a[i]:=random(30);
write(a[i]:3, ' ');
end;
writeln;
for i := 1 to 18 do begin
if a[i]>15 then k:=k+1;
end;
write(k);
readln; end.
Пожаловаться
- 09.12.2017 17:37
- thumb_up 9
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,0,30); a.Println;
Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)
end.
Пример
24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0
Элементов, превышающих значение 15: 8
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,0,30); a.Println;
Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)
end.
Пример
24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0
Элементов, превышающих значение 15: 8
Пожаловаться
- 01.01.1970 00:00
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы