с информатикой! Сделать оригинально Составить программу - вопрос №10726617 от mamakarina 06.08.2021 23:01

Question

Информатика: с информатикой! Сделать оригинально Составить программу на Паскале для обработки массива Z=(2.13; 14.1; −13.66; 0; −2; −16.5; 12; 142.3; 122; 111) при b = 3. Посчитать количество и напечатать номера элементов, которые больше b, с нечетными номерами.

mamakarina · Answer

program mas_bol_4_cnechind;const z:array[1..10]of real=(2.13, 14.1,-13.66, 0, -2, -16.5, 12,142.3, 122, 111); b=3;var k,i:integer;begin k:=0; for i:=1 to 10 do if (z[i] b)and(i mod 2=1) then inc(k); write(k)end....