Вопрос по информатике:
1)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов,равных 1.
2)массив a[1..10]заполните случайными целыми числами в диапазоне от 1 до 10. Определите,есть ли в массиве элемент,равный 5. Ответ выведите в виде слов "Да"или "Нет".
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.01.2016 21:41
- Информатика
- remove_red_eye 12170
- thumb_up 47
Ответы и объяснения 1
1)
var
a: array[1..10] of integer; //Массив целочисленных элементов а
i, n: integer; //n - количество элементов, равных 1
begin
n:= 0; //Обнуляем счетчик
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив случайными элементами от 0 до 2, распечатываем его и считаем количество элементов, равных 1}
begin
a[i]:= random(3);
write(a[i], ' ');
if a[i] = 1 then n:= n + 1;
end;
writeln;
writeln('Количество элементов, равных 1: ', n);
end.
2)
var
a: array[1..10] of integer; //Целочисленный массив а
i: integer;
b: boolean; {Логическая переменная, определяющая, есть ли в массиве элемент, равный 5}
begin
b:= false; //Присваиваем начальное ложное значение логической переменной
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив элементами в диапазоне от 1 до 10 и печатаем его}
begin
a[i]:= random(9) + 1;
write(a[i], ' ');
end;
writeln; //Перевод на новую строку
for i:= 1 to 10 do //Определяем, есть ли в массиве элемент, равный 5
if a[i] = 5 then {Если элемент равен 5, то печатаем 'да', присваиваем переменной b истинное значение и break - выход из цикла}
begin
writeln('Да');
b:= true;
break;
end;
if b = false then writeln('Нет'); {Если в массиве нет элемента, равного 5, печатаем 'Нет'}
end.
Отметь решение, как лучшее, плиз.
- 15.01.2016 09:24
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.