60 за по информатике! решить желательно с объяснением!
в файле

#include<iostream>
using namespace std;
int main(){
int N;
cin>>N;
int * arr = new int [N];
for(int i=0;i<n;i++){
cin>> arr[i];
if (arr[i]<0) arr[i]-=5; else arr[i]=i+1;
}
for(int i=0;i<n;i++) cout<< arr[i]<<;
delete arr;
return 0;
}
это с++

1)
var n,i:integer;
begin
Read(n);
for i:=1 to n do
 write(i,); 
end.

2) Функция:
 function nod(a, b: Integer): Integer;
Var t: Integer;
Begin
    If b > a Then
    Begin
        t := a;
        a := b;
        b := t;
    End;
    t := a;
    While t > 0 Do
    Begin
        Result := t;
        t := t- b;
    End;
End;

Информация – это сведения, которые можно собирать, хранить, передавать, обрабатывать, использовать.Информация – это сведения, которые можно собирать, хранить, передавать, обрабатывать, использовать.