Другие языки программирования и технологии

Задача Pascal одна ошибка

Где-то есть ошибка, т. к данные выводит неправильно+ нужно сделать чтоб матрица заполнялась генератором случайных чисел, а я не знаю как подскажите пожалуйста!

Даны натуральные числа n, a a... Определить количество членов последовательности имеющих не четные порядковые номера и являющихся четными числами.

program N75575258;
var n, a, k, i: integer;
begin
write('Введите длину последовательности (число n): ');
readln(n);
k := 0;
for i := 1 to n do
begin
write('Введите ', i, '-e число: ');
readln(a);
if (i mod 2 > 0) and (a mod 2 = 0) then
inc(k) {или k := k + 1}
end;
writeln('Кол-во чётных членов с нечётными порядковыми номерами = ', k)
end.
Александр Виноградов
Александр Виноградов
253
program N75575258;
var n, k, i: integer; a:array[1..100] of integer;
begin
Randomize;
write('Введите длину последовательности (число n): ');
readln(n);
for i:=1 to n do begin a[ i ]:=random(100)+1; write(a[ i ],' '); end;
k := 0;
for i := 1 to n do
begin
if (i mod 2 =1) and (a[ i ] mod 2 = 0) then
inc(k) {или k := k + 1}
end;
writeln('Кол-во чётных членов с нечётными порядковыми номерами = ', k);
end.

Исправил твой код
ТП
Твой Поклонник
1 795
Лучший ответ
По случайным числам: в начало, после begin, допиши
randomize;
и вместо
write('Введите ', i, '-e число: ');
readln(a);
поставь
a:=random(100);
writeln(i,'-е число равно ',a);
--
По процедуре - не вижу проблем. Напиши, что именно неправильно считает.
Серёга Борисов
Серёга Борисов
72 627
И массив пробегать не фор’м, сразу по нечётным индексам.
Павел Гаврюшов
Павел Гаврюшов
37 556
Вот так с массивом работает во freepascal .

program N75575258;.
var n, a, k, i: integer;.
arr : array of integer;
begin.
write('Введите длину последовательности (число n): ');.
readln(n);.
setlength(arr,n);
randomize;
for i := 1 to n do.
begin
arr := random(100);
writeln(arr);
end;
k := 0;
for i := 1 to n do.
begin.
if (i mod 2 > 0) and (arr mod 2 = 0) then.
inc(k) {или k := k + 1}.
end;.
writeln('Кол-во чётных членов с нечётными порядковыми номерами = ', k).
end.
Владимир Шинкевич
Владимир Шинкевич
14 439

Похожие вопросы