#include <iostream>
using namespace std;
int main()
{
int n, x = 0, count = 0;
cin >> n;
int arr[n];
for (int i = 0; i < n; i++)
{
cin >> arr[i];
for (int i = 0; i < n; i++)
{
if (arr[i] > 0 && x == 0)
{
cout << i; //положительный
x = 1
}
if (arr[i] < 0) count++;
}
cout << endl << count;
return 0;
}
Объяснение:
Введите сначало количество елементов массива, а потом сами елементы через пробел
Выведет номер первого положительного и количество отрицательных.
program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
program xxx;
var i, j, k, min : integer;
a:array[1..10, 1..20] of integer;
b:array[1..10] of integer;
begin
for i:=1 to 10 do
for j:=1 to 20 do
readln(a[i,j]);
for i:=1 to 10 do
begin
b[i]:=0;
for j:=1 to 20 do
b[i]:=b[i]+a[i,j];
end;
min:=b[1]; k:=1;
for i:=2 to 10 do
if b[i]<min then begin max:=b[i]; k:=i end;
writeln('наименьшая сумма элементов =', min);
writeln('она находится в строке -', k);
readln
end.