Const n=16; var h: array[1..n] of integer; i,sm: integer; begin sm:=0; randomize; write('массив: '); for i:=1 to n do begin h[i]:=random(-9,9); write(h[i],' '); if h[i] mod 2 = 0 then sm:=sm+1; end; writeln; writeln('количество четных: ',sm); end.
Var a,b,c:integer; n:array [1..10] of integer; begin writeln('введите номера элементов для сравнения'); readln(a,b); randomize;{скажите что посмотрели эту функцию в интернете и она нужна для подготовки программы к применению функции рандом} for c:=1 to 10 do begin n[c]:=random(-20,20);{так мы в массив ставим случайное число в диапазоне от -20 до 20} writeln(n[c]); end; if n[a]<n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b) else writeln('меньший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a); end.
var h: array[1..n] of integer;
i,sm: integer;
begin
sm:=0;
randomize;
write('массив: ');
for i:=1 to n do
begin
h[i]:=random(-9,9);
write(h[i],' ');
if h[i] mod 2 = 0 then sm:=sm+1;
end;
writeln;
writeln('количество четных: ',sm);
end.
массив: -7 -4 -3 -7 -2 6 1 -1 3 5 -2 -3 5 7 -3 5
количество четных: 4