Народ, кто может В массиве с именем а, содержатся 10 натуральных чисел (числа для каждого задания придумать - id1205675220210319 от vfggggggd 19.03.2021 12:35

Question

Информатика: Народ, кто может В массиве с именем а, содержатся 10 натуральных чисел (числа для каждого задания придумать самим таким образом, чтобы результат программы не был равен 0. Составить программу по своему варианту 1) Найти количество (k) нечетных элементов массива 2) Найти произведение (p) элементов массива, которые оканчиваются на 3 Программа: thonny-3.2.6 Ребят В информатике вообще не шарю(

vfggggggd · Accepted Answer

Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

Readln (a[i]);

For i:=1 to 5 do

If a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

End.

MOGZ ответил