Составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество пар элементов с четными значениями.
Var i,k:integer; mas:array[1..8] of byte; begin randomize; for i:= 1 to 8 do begin mas[i]:=1+random(9); write(mas[i],' '); if mas[i] mod 2=0 then k:=k+1 end; writeln(); write(k div 2) end.
Информация (от лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления. Информатика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений. Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система выполнять заданную, чётко определённую последовательность операций. Текстовый редактор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности. Графический редактор — программа (или пакет программ), позволяющая создавать и редактировать двумерные изображения с компьютера.
mas:array[1..8] of byte;
begin
randomize;
for i:= 1 to 8 do
begin
mas[i]:=1+random(9);
write(mas[i],' ');
if mas[i] mod 2=0 then k:=k+1 end;
writeln();
write(k div 2)
end.