Var a:array [1..10] of integer; i,k1,k2:integer; begin for i:= 1 to 10 do a[i]:= Random(20,100); writeln(a); for i:=1 to 10 do if a[i] mod 2 = 0 then k1:=k1+1 else k2:=k2+1; writeln('Чётных элементов: ',k1); writeln('Нечётных элементов: ',k2) end.
Если ты имеешь ввиду pascal, то: <span>Real(вещественный тип)(например числа 2,5; 3,09 и т.д.) </span><span>Integer(<span>целый тип)(например числа 10,20,100 и т.д. от </span></span><span>-32768 до 32767</span><span>) </span><span>Char(символы)(буквы,тут думаю понятно) </span><span>Boolean(логическая переменная)(true или false) </span><span>String(переменная строки(то есть грубо говоря </span>последовательность из определенного количества символов) я думаю эти типы данных до 10-11 знаете <u>Это ПРОСТЫЕ. </u>Также есть целочисленные типы, числа с плавающей запятой, п<span>орядковые типы. </span><span><em>Структурированные:</em> </span>Массив, строки, запись, множества, файлы. <u> </u>