#include "stdafx.h"
#include<iostream>
#include<time.h>
#include<list>
using namespace std;
const int N = 15;
list<int> A;list<int> C;
void print(list<int> x){
while(!x.empty()){
cout<<x.front()<<" ";
x.pop_front();}
}
void make(list<int>& x){
for (int i = 0; i < N;i++){
x.push_back(rand()%29+1);
}
}
void main(){
srand(time(NULL));
make(A);
list<int> tmp = A;
print(A);
_01:cout<<"\nWrite digit to change: ";int digit(0); cin>>digit;
A.remove(digit);//удаляю введене число
int newdigit = digit+15;// збільшую нове число, щоб не повторилось случайно з видаленим
int size = N - A.size();//узнаю скільки чисел удалило
for (int i = 0; i < size; i++) A.push_back(rand()%newdigit+1); //добавляю нові значення замість видалених
if (size!=0){
cout<<"OK\nAFTER CHANGE\n";
print(A);cout<<endl;
}
else {cout<<"What you want to change?? digit not exist!!"; goto _01;}
int n(0),k(0);
cout<<"Delete n element from k position Write n: ";cin>>n;
cout<<"Write k ";cin>>k;
int cout1(0);
list<int>::iterator m;
m = A.begin();
for (int i = 0; i < k; i++) *m++;
for (int i = 0; i < n; i++) {
A.remove(*m++); cout1++;//бо так нада
}
int how = N - A.size() - n;
for (int i = 0; i< how; i++) A.push_back(rand()%29+1);
print(A);list<int> B = A; int sizeB = B.size();
cout<<"\nAFTER CONCAT C = \n";
for (int i = 0 ; i < N; i++) {C.push_back(tmp.front()++); tmp.pop_front();}
for (int i = 0 ; i < sizeB; i++) {C.push_back(B.front()++); B.pop_front();}
cout<<endl;
print(C);
cout<<"\n";
system("pause");
}
Решение #1
var a:array[1..1000] of integer;
s,i,k,N:integer;
begin
s:=0;
k:=0;
read(N);
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Решение #2;
var a,i,s,k,N:integer;
begin
k:=0;
s:=0;
read(N);
for i:=1 to N do begin
read(a);
if a<0 then begin
k:=k+1;
s:=s+a;
end;
end;
write(s/k);
end.
Оба решение дают один результат, но первое сделан массивом, а второе простым перебором чисел.
Формат входных данных
Задается натуральное число N
Затем задается N целых чисел
Формат выходных данных
Целое число - среднее арифметическое всех отрицательных чисел
Пример
Вход
5
1 -2 3 -4 5
Выход
-3
Вопросы в ЛС
1Килобайт=1024байта;
1Мегабайт=1024Килобайта;
1Гигабайт=1024Мегабайта;
2^28=268435456 бит;
268435456\8=33554432 байт;
33554432\1024=32768Килобайт;
32768\1024=32Мегабайт;
32\1024=0.03125Гигабайт.