Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми ...
Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми числами из диапозона -50;50. найти номер последнего четного элемента и количество отрицательных до последнего четного
Есть ответ
17.12.2022
194
Ответ
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]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
