• 2)Дан массив из 10 элементов;вывести только те числа которые кратны 3;найти проиизведение чисел которые оканчиваются на 3 и 4

Ответы 2

  • кажись не верная программа, причем здесь вывод четных чисел?
  • program n1; uses crt; var aw:array[1..10] of integer; i,w,g:integer; begin g:=0; w:=10; for i:=0+1 to w do begin aw[i]:=random(100); write(aw[i]:6); end; writeln(); write('Чот'); for i:=0+1 to w do begin if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g); writeln(); write('Не чот'); g:=0; for i:=0+1 to w do begin if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ; end.
  • Добавить свой ответ

Войти через Google

или

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

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

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