У LAZARUS Побудуйте математичну модел і створіть проєкт ,у якому можна обчислити суму ,або різницю, - id2146861320220331 от тошкк 31.03.2022 14:48

Question

Информатика: У LAZARUS Побудуйте математичну модел і створіть проєкт ,у якому можна обчислити суму ,або різницю, або добуток, або частку від ділення двох довільних чисел залежно від вибраного перемикача .Збережіть проєкт у папці з іменем Завдання6.9.6,створеній у вашій папці

тошкк · 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. Надеюсь на благодарность и лучший ответ.

MOGZ ответил