• 
  • 07 May 2013
  Қазақ тiлi
  • Автор: Olga08052001

  

  дан массив натуральных чисел найти количество элементов кратных данному k СРОЧНО! ПОЖАЛУЙСТА ПОМОГИТЕ!

• 
  • 07 May 2013
  • Ответ оставил: Olya492

  Быол бы неплохо указывать среду прoграммирования.
  Paskal.

  program massiv;
  uses crt;
  var A:array [1..200] of integer; n, i, k, s: integer;
  begin;
  clrscr;
  writeln ('введите количество элементов в массиве');
  readln(n);
  randomize;
  writeln ('задан массив');
  for i:=1 to n do
  begin
  a[i]:=-10+random(21);
  write (a[i], ' ');
  end;
  writeln;
  writeln ('введите число'); {кратное которому необходимо найти}
  readln (k);
  for i:=1 to n do

  if (a[]i]<>0) and (a[i] mod k = 0) then s:=s+1;

  write ('количество элементов кратных введенному числу - ', s);

  readkey
  end. 

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: қазақ тiлi.
  На сегодняшний день (18.01.2026) наш сайт содержит 91805 вопросов, по теме: қазақ тiлi. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы