#include <iostream>
using namespace std;
int main()
{
int n,i,max,j,count=0,sum=0;
cout << "n = ";
cin >> n;
int array[n];
for (i=0;i<n;i++)
{
cin >> j;
if (j>1000000)
{
cout << "Элемент массива превосходит 1000000";
break;
}
else
{
array[i] = j;
sum += j;
}
}
max = array[0];
for (i=1;i<n;i++)
{
if (array[i]>max)
{
max = array[i];
}
}
for (i=0;i<n;i++)
{
if (array[i] == max)
{
count++;
}
}
if (count > 1)
{
sum -= count*max;
cout << "Сумма элементов массива без максимальных: " << sum;
}
else
{
sum -= max;
cout << "Сумма элементов массива без максимального: " << sum;
}
}
Вывод:n = 5
1 2 5 3 5
Сумма элементов массива без максимальных: 6
1 + 2 + 3 = 6n = 5
1 2 3 4 5
Сумма элементов массива без максимального: 10
1 + 2 + 3 + 4 = 10
Відповідь:
from random import randint as randit
lst = []
tasklst1 = 0
tasklst2 = 0
tasklst3 = 0
for elem in range(10):
random = randit( -10, 100 )
lst.append(random)
for i in lst:
if i == 0:
tasklst1 += 1
elif i > 0:
tasklst2 += 1
elif i < 0:
tasklst3 += 1
print("Список", lst)
print("a) У списку", len(lst), "елементів")
print("b) Середнє число у списку" , sorted(lst)[len(lst) // 2])
print("c) Сума всіх елементів" , sum(lst))
print("d) Кількість нульових елементів у масиві", tasklst1)
print("f) Максимальне число у списку", str(max(lst)) + ", мінімальне число у спику", min(lst))
print("g) Кількість додатніх елементів", tasklst2)
print("h) Кількість відємних елементів", tasklst3)
Пояснення:
m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
s:real;
a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
begin
writeln('Вводите элементы строки ',i,' по одному');
for j:=1 to n do readln(a[i,j]);
end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<min then
begin
min:=a[i,j];
imn:=i;
jmn:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imx:=i;
jmx:=j;
end;
end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
if a[i,j]<0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);
end.