Поиск четных чисел на нечетных позициях

@Влад11222 · Регистрация: 15.10.2019

Студворк — интернет-сервис помощи студентам

Pascal

program kahfbf;
var A :array [1..10] of integer;
c,i :integer;
begin
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if i mod 2 =1 then
if A[i] mod 2 =0 then
writeln(i);
end.

Помогите найти ошибку

@Constantin Cat · 15.10.2019, 20:55

программа ищет четные числа, на нечетных позоциях. Введите нужные числа.

@ValentinNemo · 16.10.2019, 04:10

Немного облагороженная пояснительными надписями программа.

Pascal

program kahfbf;
var
  A: array [1..10] of integer;
  c,i: integer;
begin
  for i:= 1 to 10 do
    readln(A[i]);
  writeln('Исходный массив:');
  for i:= 1 to 10 do
    write(A[i]:4);
  Writeln;
  Writeln('Выбранные элементы:');
  for i:= 1 to 10 do
    if i mod 2 = 1 then
      if A[i] mod 2 = 0 then
        write(i:4);
  Readln;
end.

@Constantin Cat 3405 / 1824 / 489 Регистрация: 28.02.2015 Сообщений: 3,697
	15.10.2019, 20:55	2
	программа ищет четные числа, на нечетных позоциях. Введите нужные числа. 0

Опции темы