Результаты выполнения:
Vvedite 5 chisel 1 stroki
1 2 3 4 5
Vvedite 5 chisel 2 stroki
5 4 3 2 1
Vvedite 5 chisel 3 stroki
23 12 43 54 6
Vvedite 5 chisel 4 stroki
4 3 2 3 0
Vvedite 5 chisel 5 stroki
0 0 9 81 3
Vvedite chislo dla sravnenia
45
Chislo elementov bolshix 45.0 ravno 2
Massiv С
54.0 81.0
Vvedite 5 chisel 1 stroki
1 32 43 2 4
Vvedite 5 chisel 2 stroki
32 2 1 4 5
Vvedite 5 chisel 3 stroki
12 43 43 5 6
Vvedite 5 chisel 4 stroki
3 4 65 0 65
Vvedite 5 chisel 5 stroki
45 0 0 0 3
Vvedite chislo dla sravnenia
5
Chislo elementov bolshix 5.0 ravno 10
Massiv С
32.0 43.0 32.0 12.0 43.0 43.0 6.0 65.0 65.0 45.0
Задание №5: Дан целочисленный массив A(N). Найти: 1)все четные элементы, имеющие нечетные номера; 2) все элементы массива, кратные задаваемому числу a
С
Начало
1
хема алгоритма:
Вывод информационного текста
Вывод информационного текста
i=1, 1, N i=1, 1, N
Ввод A[i]
(A[i]/c)=(A[i] DIV c)
Ввод A[i]
нет
Конец цикла
Ввод с
да
Конец
Вывод информационного текста
i=1, 1, N
(A[i]/2)=(A[i] DIV 2)
нет
Ввод A[i]
да
i=i+1
Конец цикла
1
Текст программы:
Program Prog4_5;
Const N=10;
Var
i,b,c:integer;
A:array[1..N] of integer;
Begin
Writeln('Vvedite ',N,' chisel');
For i:=1 to N do
Read(A[i]);
Writeln('Vedite "c"');
Read(c);
Writeln('Chetnie elementi s nechetnimi nomerami');
For i:=1 to N do
Begin
If (A[i]/2)=(A[i] DIV 2) then Write(A[i],' ');
i:=i+1
end;
Writeln;
Writeln('Elementi kratnie ',c);
For i:=1 to N do
If (A[i]/c)=(A[i] DIV c) then Write(A[i]:3);
End.