Задание:
Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми числами из диапозона -50; 50. Найти номер последнего четного элемента и количествоотрицательных до последнего четного
Решение:
program noname; uses crt; vara: array[1… 100] of integer; i,n,k: byte; beginclrscr; for i: =1 to 20 do beginrandomize; 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 doif a[i]<0 then n: =n+1; writeln; writeln (k,'-номер последнего четного'); writeln (n,'-число отрицательных элементов до ', a[k]) end.
Знаете другой ответ?