ДАМ 50Б Составить блок-схемы описывающие алгоритмы решения следующих задач Даны два числа a и b. Найти - id2054362920230320 от 10584869678 20.03.2023 03:36

Question

Информатика: ДАМ 50Б Составить блок-схемы описывающие алгоритмы решения следующих задач Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. Даны два числа. Вывести вначале большее, а затем меньшее из них. Даны два целых числа A и B (A B). Вывести в порядке возрастания все целые числа, расположенные между A и B (цикл с параметром). Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления (цикл с

10584869678 · Accepted Answer

1.

var
i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.

2.
var
x,i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.

MOGZ ответил