Задача1.Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.
Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
var
arr:array[1..1000] of integer;
i,n:integer;
begin
write('Укажите размер массива - ');
read(n);
writeln;
for i:=1 to n do
begin
read(arr[i]);
end;
for i:=1 to n do
if arr[i]>0 then writeln('Эл-т - ',arr[i],' Номер - ',i);
end.
Объяснение: