Разработать алгоритм в виде блок-схемы для вычисления суммы положительных чисел в интервале от -5 до - id300003920230325 от Каролина311 25.03.2023 10:12

Question

Информатика: Разработать алгоритм в виде блок-схемы для вычисления суммы положительных чисел в интервале от -5 до 40

Каролина311 · Accepted Answer

uses crt;
var a, b, c, i, n:integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива, который надо сгенерировать');
read (n);
for i:=1 to n do
  s[i]:=random(50);
for i:=1 to n do
  writeln (i, ' элемент равен ', s[i]);
writeln ('Введите число, которое нужно найти');
read (a);
for i:=1 to n do
      if s[i]=a then inc(b);
if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');
end.

P.S. Надеюсь на благодарность и лучший ответ.

Разработать алгоритм в виде блок-схемы для вычисления суммы положительных чисел в интервале от -5 до 40

MOGZ ответил