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

или pascal) Заданы N целых чисел. Требуется найти, сколько из этих чисел строго меньше N. Формат ввода Первая строка входных данных содержит одно целое число N (1 ≤ N ≤ 105). Вторая строка содержит N целых чисел ai (-109 ≤ ai ≤ 109). Формат вывода Выведите одно число — количество ai, строго меньших N. Пример Ввод Вывод 5 -10 4 10 5 2 3

👇
Ответ:
Соня13377
Соня13377
09.04.2020

N = int(input())

a = [0] * N

for i in range(0, 5):

   a[i] = int(input())

col = 0

for j in a:

   if j < N:

       col += 1

print(col)

4,6(95 оценок)
Ответ:
tim1963yt
tim1963yt
09.04.2020

--- Python 3.8.3 ---

import typing

from typing import Callable

from typing import AnyStr

from typing import Any

from typing import Iterable

from typing import List

def SeqCount(Seq: Iterable[Any], predicate: Callable[[Any], bool]) -> int:

   counter = 0

   for item in Seq:

       if predicate(item):

           counter+=1

   return counter

def main():

   n = int(input())

   Seq = list(map(int, input().split(maxsplit = n)))

   print(SeqCount(Seq, lambda  item: item < n))

if __name__ == "__main__":

   main()

Проходит предложенный вами тест + пару придуманных лично мной

формат ввода ([Enter] - пользователь нажимает кнопку ввода. ">>>" - вывод программы):

5 [Enter]

-10 4 10 5 2 [Enter]

>>> 3

4,6(48 оценок)
Открыть все ответы
Ответ:
denisskidan201
denisskidan201
09.04.2020
Const
  n=10; 
  m=10;
var
  a: array[1..n,1..m] of integer;
  b: array[1..n] of integer;
  i,j,k: integer;
begin;
  k:=0;
  writeln ('Двумерный массив:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100)-50;
      write (a[i,j]:4);
      if (a[i,j]<0) and (abs(a[i,j] mod 2)=1)
        then k:=k+1;
    end;
    writeln;
    b[i]:=k;
    k:=0;
  end;
  writeln;
  writeln ('Сформирован одномерный массив:');
  for i:=1 to n do
    write (b[i]:3);
end.

Результат:

Двумерный массив:
  19  30 -49 -10 -10 -14 -25 -19 -16 -11
 -18  18   1  18  32  21  22 -33  45  45
 -50 -26 -24 -47   8  39  14  34  45 -21
 -33   5 -26   3 -38   0 -40  31 -42  11
 -32 -25 -47   2 -24  34 -48 -27  18   8
  12  42 -49   7  23  -5   3  48  32   1
  22  -9 -14 -46 -28  26  -6  48   5 -19
  11  40 -42 -17  27  25 -29  23  26  24
  36  -9 -34 -14  17 -26   3  16  29  17
  47 -39  49   7  39  26  39  48 -21  -1

Сформирован одномерный массив:
  4  1  2  1  3  2  2  2  1  3
4,6(74 оценок)
Ответ:
angelina2334e35r5
angelina2334e35r5
09.04.2020

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение:

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