1. Ввести з клавіатури n будь-яких цілих чисел. Чи всі вони більші 10?

4. Введіть з клавіатури ціле число А. Надрукуйте в рядок
всі цілі тризначні числа, які починаються таза кінчаються на цифру А та знайдіть їх кількість

5. Введіть з клавіатури n будь-яких цілих чисел. Знайдіть
середнє арифметичне двозначних.

Python
хотяб одно

Дан це­ло­чис­лен­ный мас­сив из 20 элементов. Эле­мен­ты мас­си­ва могут при­ни­мать целые зна­че­ния от –10 000 до 10 000 включительно. Опи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния алгоритм, поз­во­ля­ю­щий найти и вы­ве­сти ко­ли­че­ство пар эле­мен­тов массива, в ко­то­рых сумма эле­мен­тов де­лит­ся на 2, но не де­лит­ся на 4. В дан­ной за­да­че под парой под­ра­зу­ме­ва­ют­ся два со­сед­них эле­мен­та массива.

Исходные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже на при­ме­рах для не­ко­то­рых язы­ков программирования. За­пре­ща­ет­ся ис­поль­зо­вать переменные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать не­ко­то­рые из опи­сан­ных переменных.

 

 

БейсикPython

CONST N = 20 DIM A (1 TO N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END

// до­пус­ка­ет­ся также использовать

// две це­ло­чис­лен­ные переменные

// j и k

a = []

n = 20

for i in range(0, n):

a.append(int(input()))

…

ПаскальАлгоритмический язык

const N = 20; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); … end.

алг нач цел N = 20 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон

Си

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
      .Where(x->Abs(x).Between(10,99)).Count)
end.

Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3

begin
  var k:=ReadInteger('K=');
  Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
      .Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.

Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2