М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Horneter
Horneter
31.07.2020 12:27 •  Информатика

Паскаль.одномерный массив произвольной размерности заполнить случайными числами [-30; 25].найти количество элементов значение которых кратно 3 и имеют четные номера

👇
Ответ:
LIZA123456789011
LIZA123456789011
31.07.2020

const

  n = 100;

 

var

  a : array [1..n] of integer;

  i, count : integer;

 

begin

  count := 0;

  for i := 1 to n do

    a[i] := round (random (55)) - 30;

  for i := 1 to n do

    if  (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);

  writeln  (count);

end.

4,6(86 оценок)
Ответ:
Aliona200
Aliona200
31.07.2020

var

  a:array[1..100] of integer;

  n, i, count:integer;

begin

  write('Введите количество элементов массива '); readln(n);

  writeln('Исходный массив: ');

  count := 0;

  for i := 1 to n do

  begin

    a[i] := random(56) - 30;

    write(a[i], ' ');

    if (i mod 2 = 0) and (a[i] <>0) and (a[i] mod 3 = 0) then

      inc(count);

  end;

  writeln;

  writeln('Количество элементов стоящих на четных местах и кратных 3 равно ', count);

end.

4,4(20 оценок)
Открыть все ответы
Ответ:
Даниюша3223
Даниюша3223
31.07.2020
Const N1 = 5;
      N2 = 5;
var a: array [0..N1, 0..N2] of integer;
    b: array [0..N1*N2] of integer;
    i, j, n: integer;
begin
     for i:=0 to N1 do {Заполнение массивы случайными числами}
         for j := 0 to N2 do
            a[i, j] := random(9999);
              for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива} 
        for j := 0 to N2 do
             if (a[i, j] mod 2 = 0) then
             begin
                  b[n] := a[i, j];
                  n := n + 1;
             end;
                  for i:=0 to n do  {Вывод полученных чисел}
         writeln(b[i]);
end.
4,7(79 оценок)
Ответ:
nataliy6578
nataliy6578
31.07.2020

def process(array):

result = []

for item in array:

 if item % 2 == 0:

  result.append(item)

return result

def main():

N = int(input())

assert N>=1 and N<= 100

input_array = [int(i) for i in input().split()]

assert len(input_array) == N  

print(' '.join(str(i) for i in process(input_array)))

if __name__ == '__main__':

main()

Объяснение:

Протестировано на предложенном стандартном вводе/выводе + 2 доп. теста:

#1:

Ввод:

3

3 3 4

Вывод:

4

#2

Ввод:

6

3 3 3 4 6 8

Вывод:

4 6 8

P.S - Так как сайт ломает Python-код, ниже приложен скриншот исходного кода программы


Надо дан массив, состоящий из целых чисел. напишите программу, которая выводит те элементы массива,
4,5(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ