Array16. Дан массив A размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2, … .
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program Array16; var a:array[1..10] of integer; N,i:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; i:=1; While (i<=N div 2) do begin writeln(i,' : ',a[i]); writeln(N-i+1,' : ',a[N-i+1]); inc(i); end; if n mod 2 <> 0 then writeln((N div 2)+1,' : ',a[(N div 2)+1]); end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #include int main(void) { int a[10]; int n, i; printf("N: "); scanf("%i",&n); for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } for (i=0; i<n/2; ++i){ printf("%i\n",a[i]); printf("%i\n",a[n-i-1]); } if (n%2 != 0 ) printf("%i\n",a[(n/2)]); return 0; } |
#include
using namespace std;
int main()
{
srand(time(0));
int n;
cin >> n;
int ar[n];
for (int i = 0;i < n;++i)
{
ar[i] = rand() % 90 + 10;
cout << ar[i] << " ";
}
cout << endl;
for (int i = 0;i < n / 2;++i)
{
cout << ar[i] << " ";
cout << ar[n — 1 — i] << " "; //вовзращаем назад
}
if (n % 2 != 0)
cout << ar[n / 2];
return 0;
}
#include
using namespace std;
int main(){
int a[100];
int n;
cout<<"massivning sonini kiriting: "<>n;
for(int i=0;i<n;i++){
cout<<"massivning "<<i+1<>a[i];
}
for(int i=0;i<n;i++){
cout<<a[i]<<a[n-i-1];
}}
Это С++?
int i, j, N;
Console.Write(«N=> «);
N = int.Parse(Console.ReadLine());
int[,]arrB = new int [N, N];
Random rnd = new Random();
for(i=0; i<N; i++){
for(j=0; j<N; j++)
{
arrB[i, j] =rnd.Next(100);
Console.Write(arrB[i, j] + "\t");
}
Console.WriteLine();
}
Console.ReadKey();
int n = sc.nextInt();
int[] a = new int[n];
for (int i = 0; i<a.length; i++){
a[i] = sc.nextInt();
}
for (int i = 0; i=1; i-=2){
System.out.print(a[i]+» «);
}
System.out.println();
program qq;
var N,k:integer;
A:array [0..10] of real;
x:real;
Begin
write(‘N — ‘);
read(N);
for k:= 1 to N do
begin
write();
read(A[k]);
end;
k:=0;
Repeat
k:=k+1;
writeln(A[k],’- Ak ‘,k);
if k=N then break;
writeln(A[N],’- AN ‘,n);
N:=N-1;
until k >= N;
end.