Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
1 вапрос атвет 1 2 вапрос 3 атвет 3 вапрос 1 атвет 4 атвет 1 атвет
1) б или в
2) в
3) г
4) б или в
5) в, наверное
6) г
7) а
а алгоритм
Объяснение:
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.