Ввести массив из 10 элементов, вывести значения честных номеров элементов.
maksim1359:
привет. спасибо за, то что вы помогали мне сделать программу и за ваше потраченное время.
я сделал программу
если вам интересно, то я хотел такой результат:
Program kp18;
type
massiv = array [1..100] of integer;
var
n, i: integer;
A: massiv;
begin
write('Введите длину массива : ');
readln(n);
for i := 1 to n do
begin
write('Введите ', i, ' элемент : ');
readln(A[i]);
end;
write('четные элементы: ');
for i := 1 to n do
begin
if (A[i] mod 2=0) then
write(A[i], ' | ') ;
end;
readln;
end
type
massiv = array [1..100] of integer;
var
n, i: integer;
A: massiv;
begin
write('Введите длину массива : ');
readln(n);
for i := 1 to n do
begin
write('Введите ', i, ' элемент : ');
readln(A[i]);
end;
write('четные элементы: ');
for i := 1 to n do
begin
if (A[i] mod 2=0) then
write(A[i], ' | ') ;
end;
readln;
end
А зачем type'ом обьявлять статический массив? Не проще ли так сделать: var a: array[1..100] of integer ?
мне нужно, что бы от 1 до 10
т.е от 1..10
Тогда так: var a: array[1..10] of integer;
Но если нужен динамический массив, то такая программа: type z=array of integer;
var a: z;
n,i: integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
end. Только нумерация массива будет от 0 до 9
var a: z;
n,i: integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
end. Только нумерация массива будет от 0 до 9
ну типо того
Ответы
Ответ дал:
1
Условие в вопросе и комментариях различается, поэтому приведу два варианта.
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
2) Программа выводит четные элементы массива
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
2) Программа выводит четные элементы массива
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
3 года назад
8 лет назад