Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а

@kareglasaya · Регистрация: 13.05.2013

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

Помогите пожалуйста решить эту задачу. Массив a[i] выводит на печать. Я пишу a[i] mod 2 = 0 , а он мне 41 ошибку выдает. Что делать?
Вот фрагмент моей программы:

Pascal

uses crt;
Var a:array[1..12]  of real;
b:array[1..12]  of real;
x:array[1..12]  of real;
n,i:integer;
Begin
 CLRSCR;
Writeln('введите размерность одномерного массива'); Readln(n);
For i:=1 to n do
begin
a[i]:=(3*i-1);
write(a[i]:4:0);
end;
For i:=1 to n do
begin
х[i]:=a[i] mod 2;
writeln('массив четных чисел',х[i]:4:1);
End;
Readln;
end.

Kodzaev · 26.05.2013, 14:21

kareglasaya, к вещественным числам нельзя применять операцию mod. Делайте массив целочисленным.

@kareglasaya · 26.05.2013, 14:50 **[ТС]**

Сообщение от Kodzaev

kareglasaya, к вещественным числам нельзя применять операцию mod. Делайте массив целочисленным.

Спасибо. Теперь все работает.

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	26.05.2013, 14:21	2
	kareglasaya, к вещественным числам нельзя применять операцию mod. Делайте массив целочисленным. 1

@kareglasaya 5 / 5 / 0 Регистрация: 13.05.2013 Сообщений: 133
	26.05.2013, 14:50 [ТС]	3
	Сообщение от Kodzaev kareglasaya, к вещественным числам нельзя применять операцию mod. Делайте массив целочисленным. Спасибо. Теперь все работает. 0

Опции темы