Необходимо написать программу, которая выполняет следующие действия:
1. Запрашивает у пользователя 9 произвольных чисел (положительных, отрицательных, равных 0);
2. Определяет и выводит сумму введённых пользователем чисел;
3. Определяет и выводит количество положительных, отрицательных чисел и чисел, равных 0;
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.
1. Функция ВПР
Вертикальное первое равенство. Ищет совпадение по ключу в первом столбце определенного диапазона и возвращает значение из указанного столбца этого диапазона в совпавшей с ключом строке.
2. Функция ГПР
Горизонтальное первое равенство. Ищет совпадение по ключу в первой строке определенного диапазона и возвращает значение из указанной строки этого диапазона в совпавшем с ключом столбце.
3. Функция СТРОКА
Определяет и возвращает номер строки указанной ссылкой ячейки.
4. Функция СТОЛБЕЦ
Возвращает номер столбца ячейки, указанной ссылкой.
5. Функция АДРЕС
Возвращает текст, представляющий адрес ячейки, заданной номерами строки и столбца.