1. найдите количество элементов массива s[7], равных заданному числу b (число b вводится с клавиатуры) 2. найти максимальный и минимальный элементы массива f[13], а так же их номера сделать на паскале 30 ! решите
ЖИЗНЕННОЙ, СИТУАЦИИ, ПОНАДОБЯТСЯ, ВЫЧИСЛИТЕЛЬНЫЕ Будешь писать неграмотно лично я и отвечать не буду - обидно за русский язык!! Вычислительными будем называть такие таблицы, в которых значения некоторых свойств вычисляются с использованием значений других свойств из этой же таблицы. Вычислительная таблица может содержать итоговую строку (графу). Итоговая строка (графа) имеет заголовок «Итого» или «Всего». В ячейках итоговой строки (графы) размещают суммы чисел из соответствующих граф (строк). Важно, чтобы эти суммы имели смысл.
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.
надеюсь правильно, удачи))