Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми числами из диапозона -50;50. найти номер последнего четного элемента и количество отрицательных до последнего четного

Ответ оставил Гость

program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i], );
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,-номер последнего четного);
writeln(n,-число отрицательных элементов до , a[k])
end.