Дан массив целых чисел. Напечатать все четные элементы

@Doc....99 · Регистрация: 11.03.2012

Использование условий для изменения элементов массива и вывода их на экран
6.3) Дан массив целых чисел. Напечатать: все четные элементы;

@Das Gespenst · 26.06.2012, 20:47

Pascal

program z;
uses crt;
const n=10;
var i,f:byte;
a:array [1..n] of integer;
begin
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to  n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     clrscr;
     write('Ìàññèâ: ');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     f:=0;
     write('Íå÷åòíûå ýëåìåíòû ìàññèâà: ');
     for i:=1 to n do
         if odd(a[i])=true
            then
                begin
                     write(a[i],' ');
                     f:=1;
                end;
     if f=0
        then
            write('òàêèõ ýëåìåíòîâ íåò!');
     readln;
end.

@Doc....99 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 64
		1
	Дан массив целых чисел. Напечатать все четные элементы 26.06.2012, 20:31. Просмотров 4355. Ответов 1 Метки нет (Все метки) Использование условий для изменения элементов массива и вывода их на экран 6.3) Дан массив целых чисел. Напечатать: все четные элементы; 0

Опции темы

Дан массив целых чисел. Напечатать все четные элементы

Решение