• 1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:
    а) Все четные  элементы
    б) Все элементы, оканчивающиеся нулем.

    2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.

    В паскале. Заранее спасибо.

Ответы 1

  • program gt;var a:array[1..100]of integer;n,i:integer;beginread(N);for i:=1 to n doread(a[i]);write('чётные числа ');for i:=1 to n doif(a[i] mod 2=0)then write(a[i],' ');writeln;write('числа оканчивающиеся нулем ');for i:=1 to n doif(a[i] mod 10=0)then write(a[i],' ');end.2)program gt;var a:array[1..1000]of integer;n,i:integer;beginread(N);for i:=1 to n doread(a[i]);for i:=1 to n doif(a[i]=0)then write(i,' ');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years