Var arr: array[1..100] of real; n: integer; sum, op: real; i: integer; begin write('vvedite n '); readln(n); for i : = 1 to n do begin write('vvtdite ',i,'-oe chislo '); readln(arr[i]); end; sum : = 0; for i : = 1 to n do sum : = sum + arr[i]; writeln('summa= ', sum); end.
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}