5. Компьютерде орындайық
Сендер дүкенде кеңесші болып істейсіңдер делік. Сатып
алушыларға қандай процессоры бар компьютер алуға кеңес
берер едіңдер? Процессор туралы ақпаратты іздеу үшін Ин-
тернет желісін пайдаланып, кестені толтырыңдар.
Процессор Таңдау себебі
Мақсат түрлері
Мәтіндерді баспадан шығару, қара-
пайым сурет салу, кестелік есептеулер
жүргізу үшін
Компьютер ойындары үшін
Дыбыспен, графикамен кәсіби жұмыс
істеу (видеомонтаж) үшін

Программа

var

 A: array[1..8] of integer;

 B: array[1..8] of integer;

 i: integer;

begin

 Writeln('Заполните массив ');

 for i:=1 to 8 do

   begin

   Read(A[i]);

   if odd(A[i]) then //* смотри примечание после кода

     B[i]:=A[i]

   end;

   Writeln('Нечётные числа массива ');

   for i:=1 to 8 do

   begin

     if B[i]>0 then

       Write(B[i],' ');

   end;

end.

Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false

Тестовый ввод программы показан в приложении к решению

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15