Question

1. Найдите количество элементов массива S[7], равных заданному числу b (число b вводится с клавиатуры)

2. Найти максимальный и минимальный элементы массива F[13], а так же их номера

Сделать на Паскале


ДАЮ 30 баллов! срочно решите

Answer 1

Var A:array[1..100] of integer;

   i,n,m,k:integer;

Begin

   write('Кол-во элементов массива: ');readln(n);

   For i:=1 to n do

   Begin

     write(i,' элемент = ');

     readln(A[i]);

   End;

   writeln('Введённый массив');

   For i:=1 to n do

    write(A[i]:5);

   writeln;

   write('Заданное число: ');readln(m);

   For i:=1 to n do

    if A[i]>m then inc(k);

   writeln('Элементов >',m,' = ',k);

   readln;

End.

надеюсь правильно, удачи))

Answer 2

Верно, но не все. Чуток переделал, огромное спасибо))