Program F1;
Var X: Array[1..20] of Integer;
i, n, k, A: Integer;
Begin
Write (‘n=’);
Readln (n);
For i:=1 To n do Readln (X[i]);
Write (‘A=’);
Readln (A);
k:= 0;
For i:=1 To n Do
If (X[i] >0) and (X[i] <= A) Then k:=k + 1;

Writeln (‘k=’, k);
End.

1. Напишите имя массива.
2. Сколько элеменов в массиве?
3. Какие числа в массиве ? Где в программе это описывется?
4. Как введены данные в массив?
5. Какой цикл используется для решения задачи ?
6. Что вычисляет программа ?

steik20155    3   25.05.2020 16:50    0