Program primer;
Uses crt;
var i,n,ind: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-70;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=1 to n do
if a[i]<=0 then ind:=ind+1
else
begin
ind:=i;
writeln(ind); break;
end;
end.
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
Вот решение я приложил в файле и на картинке