Регистрация
Лизочка2597
10.11.2022 19:04
Информатика
Есть ответ 👍

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

242
441
Посмотреть ответы 2

Ответы на вопрос:

gagikgrigoryan
gagikgrigoryan
4,7(64 оценок)

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. 

Незнайка0091
Незнайка0091
4,8(61 оценок)
А) принимать товары б)мести в)охранять г)следить за порядком в школе и отвечать за переговоры и контакты

Популярно: Информатика