Народ, кто может не обижу.
В массиве с именем а, содержатся 10 натуральных чисел (числа для каждого
задания придумать самим таким образом, чтобы результат программы не был равен
0. Составить программу по своему варианту
1) Найти количество (k) нечетных элементов массива
2) Найти произведение (p) элементов массива, которые оканчиваются на 3
Программа: thonny-3.2.6
Ребят В информатике вообще не шарю(
n = 30;
var
x: array[1..n] of integer;
i, t, min: integer;
begin
Randomize;
Writeln('Элементы массива');
min:=32767;
for i := 1 to n do
begin
t := Random(1001)-500;
x[i] := t;
Write(t:5);
if Odd(i) and (t mod 5 = 0) and (min>t) then min:=t
end;
Writeln;
Writeln('Минимальный нечетный элемент, кратный 5, равен ',min)
end.
Тестовое решение:
Элементы массива
-64 438 -290 358 -424 234 -444 -17 171 -57 -373 -279 242 -403 -262 34 -488 365 341 -468 163 -276 193 -140 126 -466 -236 -34 350 -369
Минимальный нечетный элемент, кратный 5, равен -290