Составьте программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10], а затем выводить на экран в первую строку первые пять элементов, а во- воторую -остальные пять. пример ввода: 1 2 3 4 5 6 7 8 9 10 пример вывода: 1 2 3 4 5 6 7 8 9 10

Var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
writeln(a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5],' ');
writeln(a[6],' ',a[7],' ',a[8],' ',a[9],' ',a[10],' ');
end.

#include <stdio.h>
#include <conio.h>
main()
{     
int b,a[10],k=10,i;     
for (i=0;i<k;i++){         
scanf("%d",&a[i]);         
}     
 for (i=0;i<k;i++){       
if ((i%2)>0){       
printf("\na[%d]=%d",i,a[i]);   
 }   
 }                  
 getch();       
 }

1
2 var a:array [1..100] of integer; i:integer;
3 begin
4 for i:=1 to 10 do
5 read(a[i]);
6 for i:=1 to 10 do
8 writeln (a[i]);
9

var

i,k1,k2:integer;

a[i]:array[1..10] of integer;

begin

for i:=1 to 10 do

read(a[i]);

read(k1,k2);

for i:=k1 to k2 do

write(a[i]);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Честно говоря, я с трудом могу понять, как массив из 12ти элементов можно вывести в две строки по пять элементов :) Данная программа выводит в первую строку пять элементов, а во вторую - оставшиеся.

 

Program n1;
Uses CRT;
Const n=12;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite elementy');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
begin
write(a[i]:4);
if i=5 then writeln;
end;
readln
end.

Program mas;
var i:integer; a:array[1..10] of integer
begin 

for i=1 to 10 do
begin
readln(a[i]);
end;

for i=2 to 10 do
begin
writeln(a[i]);
i:=i+1;
end;

end.

Program z;
var a :array[1..10] of integer;
    i:integer;
begin
for i:=1 to  10 do 
read(a[i]); 
writeln(a[1],' ', a[2],' ', a[3],' ' ,a[4],' ' ,a[5]); 
writeln(a[6],' ',a[7],' ',a[8],' ',a[9],' ',a[10]);

end.

Var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if (i mod 2=0)
then writeln(a[i]);
end.

Ловите на паскале, если будет нужно на другом языке - пишите:
var mass: Array[1..10] of integer;
    i, k1, k2: integer;
begin
for i := 1 to 10 do begin
  write('Введите ', i, ' элемент массива: ' );
  readln(mass[i]);
end;
write('Введите k1 и k2: ' );
readln(k1, k2);
writeln('');
for i := k1 to k2 do begin
writeln(mass[i]);
end;

end.

Честно говоря, я с трудом могу понять, как массив из 12ти элементов можно вывести в две строки по пять элементов :) Данная программа выводит в первую строку пять элементов, а во вторую - оставшиеся. Program n1;
Uses CRT;
Const n=12;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite elementy');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
begin
write(a[i]:4);
if i=5 then writeln;
end;
readln
end.