• Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000.Напишите программу, позволяющую найти и вывести количество элементов массива, кратных трём, запись которых заканчивается цифрой 1.
    Паскаль АБС

Ответы 6

  • Спасибо тебе огромное!)
  • Пожалуйста. Для "спасибо", чтобы не писать, тут есть синяя кнопочка.
    • Автор:

      thor1dzb
    • 6 лет назад
    • 0
  • я и сюда,и на кнопочку)
    • Автор:

      parks
    • 6 лет назад
    • 0
  • Когда задания и решения принимаются в архив решенных, комментарии приходится удалять вручную. Не создавайте людям лишней работы))
    • Автор:

      clay15
    • 6 лет назад
    • 0
  • Хорошо
    • Автор:

      julioouuc
    • 6 лет назад
    • 0
  • // PascalABC.Net 3.0, сборка 1088const  n=30;var  a:array[1..n] of integer;  i,k:integer;begin  Randomize;  Writeln('*** Исходный массив ***');  k:=0;  for i:=1 to n do begin    a[i]:=Random(1001);    Write(a[i],' ');    if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)  end;  Writeln;  Writeln('Количество найденных элементов равно ',k)end.Тестовое решение:*** Исходный массив ***503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61 Количество найденных элементов равно 3
  • Добавить свой ответ

Войти через Google

или

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

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

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