1)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов,равных 1. 2)массив a[1..10]заполните случайными целыми числами в диапазоне от 1 до 10. определите,есть ли в массиве элемент,равный 5. ответ выведите в виде слов "да"или "нет".
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.
Отметь решение, как лучшее