Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми…

Question

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

Answer 1

85

devushka

17 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: