Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
1.принтер
5.монитор
2.наушники,10.акустические колонки -устройства вывода звуковой информации.
5981 bit = 747,625 bytes в секунду
867245 байт / 747.625 байт в секунду = 1160 секунд
Ширина ячейки мала для отображения числа, необходимо увеличить ширину ячейки
Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.