Ввод:микрофон джойстик цифр.микроскоп сканер тачпад web.Камера тачскрин фотоаппарат клавиатура планшет мышь
Вывод:
Принтер видеопроектор графопостроитель колонки встроенный.динамик наушники
ПК:
Процессор сетевая.карта оперативная.память материнская.плата видеокарта блок.питания накопитель источник.бесперебойного ПЗУ
Минимум 2(так как вы уже увилели двоих,максимум-не ограничено.(так как номера не обязательно порядковые)
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>