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.
Отметь решение, как лучшее
var
a: array[1..10] of integer; //Массив а
i, index: integer; //index - индекс последнего элемента с нечетным значением
begin
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}
begin
a[i]:= random(10) + 1;
write(a[i], ' ');
if a[i] mod 2 = 1 then index:= i;
end;
writeln;
writeln('Последний элемент с нечетным значением: a[', index, '] = ', a[index]);
end.
Отметь решение как лучшее)