Дан массив из N элементов определить колличество элементов имеющие четные порядковые номера и являющиеся нечетными номерами
Ответы
Ответ дал:
0
Uses crt;
Var m:array[1..1000] of integer;
I,j:integer;
Begin
Clrscr;
Writeln('Введите размер массива ');
Readln(n);
Writeln('Массив: ');
For i:=1 to n do
Begin
M[i]:=i;
Write(m[i],' ');
If i mod 2 =0 then j:=j+1;
End;
Writeln;
Writeln('Количество элементов с четными номерами = ',j);
Readkey;
End.
Var m:array[1..1000] of integer;
I,j:integer;
Begin
Clrscr;
Writeln('Введите размер массива ');
Readln(n);
Writeln('Массив: ');
For i:=1 to n do
Begin
M[i]:=i;
Write(m[i],' ');
If i mod 2 =0 then j:=j+1;
End;
Writeln;
Writeln('Количество элементов с четными номерами = ',j);
Readkey;
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад