Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.
Var a: array [1..20] of integer; i,k:integer; Begin Writeln('Перечислите элементы массива: '); For i:=1 to 20 do read(a[i]); For i:=20 downto 1 do begin If ((a[i] mod 2) <>0) then begin k:=k+1; write(a[i]:2); end; end;
Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
a: array [1..20] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');
For i:=1 to 20 do
read(a[i]);
For i:=20 downto 1 do
begin
If ((a[i] mod 2) <>0) then
begin
k:=k+1;
write(a[i]:2);
end;
end;
writeln(' kol= ',k); //
End.