Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые значения от 0 до 100.Составить программу ,позволяющую найти и вывести элементы массива, которые не кратны 9 и находятся в диапазоне[30,70].Гарантир...
Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые значения от 0 до 100.Составить программу ,позволяющую найти и вывести элементы массива, которые не кратны 9 и находятся в диапазоне[30,70].Гарантируется,что в исходном массиве есть хотя бы один такой элемент.
Гость
Ответ(ы) на вопрос:
Гостьconst
auto = true;
n = 70;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
begin
if auto then
a[i] := random(100)
else readln(a[i]);
if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
writeln(a[i]);
end;
end.
Не нашли ответ?
Похожие вопросы