Люди помогите пожалуйста в написании программы
...
Вроде не сложная
, а не могу...
Задание: пользователь с клав-ры вводит массив, посчитать сумму чётых чисел целой части числа...
Я начало сделал а дальше ни как...
_________________________________________________________________
program r7;
uses CRT;
var X:array[1..3] of real;
Y:array[1..3] of string;
a,a1,a2,a3,l,c,h:integer;
begin
clrscr;
a1:=0;
a2:=0;
a3:=0;
for a:=1 to 3 do begin
writeln('enter array X[',a,']');
readln(X[a]);
STR(X[a],Y[a]);end;
for a:=1 to 3 do begin
delete(Y[a],16,5);end;
for a:=1 to 3 do begin
writeln('Y[',a,']=',Y[a]);
end;
for a:=1 to 3 do begin
delete(Y[a],16,5);
end;
readkey;
end.
_________________________________________________________________