1) Дан одномерный массив. Найти сумму элементов, принадлежащих промежутку от A до B (A и B вводятся с клавиатуры).
2) Одномерный массив заполнить n случайными целыми числами, находящимися в интервале от 0 до 15. Найти произведение максимального и минимального элемента массива. Вывести массив, числа должны располагаться в строке.
3) Составить программу, используя оператор WHILE. Вывести на экран числа, кратные K, из промежутка (A, B). Числа K, A, B задаёт пользователь.
4) Составить программу, используя оператор FOR. Дана последовательность из N целых чисел. Определить произведение элементов этой последовательности.

Ниже примеры программ на Pascal.

1) Сумма элементов массива, принадлежащих промежутку от A до B:
var a: array[1..100] of integer;
n, i, A, B, s: integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln(A, B);
s := 0;
for i := 1 to n do
if (a[i] >= A) and (a[i] <= B) then s := s + a[i];
writeln(s);
end.

2) Массив из случайных чисел от 0 до 15, произведение максимального и минимального:
var a: array[1..100] of integer;
n, i, mn, mx: integer;
begin
randomize;
readln(n);
for i := 1 to n do
begin
a[i] := random(16);
write(a[i], ' ');
end;
mn := a[1]; mx := a[1];
for i := 2 to n do
begin
if a[i] < mn then mn := a[i];
if a[i] > mx then mx := a[i];
end;
writeln;
writeln(mn * mx);
end.

3) WHILE: вывести числа, кратные K, из промежутка (A, B):
var A, B, K, x: integer;
begin
readln(K, A, B);
x := A + 1;
while x < B do
begin
if x mod K = 0 then write(x, ' ');
x := x + 1;
end;
end.

4) FOR: произведение элементов последовательности из N целых чисел:
var N, i, x, p: integer;
begin
readln(N);
p := 1;
for i := 1 to N do
begin
readln(x);
p := p * x;
end;
writeln(p);
end.

0 0 Пожаловаться