Вот так, там можно и таблицей, но мне колонками больше нравится =)
Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
1. Правой мышкой на объект, потом свойства и готово.
2. Для того чтобы изменить значок для какой-то одной папки, щелкните по ней правой кнопкой мышки, и в контекстном меню выберите пункт меню «Свойства». После этого перейдите в окне «Свойства» на вкладку «Настройка» - там будет пункт «Значки папок». Нажимайте на кнопку «Сменить значок» и выбирайте любой из значков, которые предлагает вам операционная система. Для того чтобы изменить значок для какой-то одной папки, щелкните по ней правой кнопкой мышки, и в контекстном меню выберите пункт меню «Свойства». После этого перейдите в окне «Свойства» на вкладку «Настройка» - там будет пункт «Значки папок». Нажимайте на кнопку «Сменить значок» и выбирайте любой из значков, которые предлагает вам операционная система.
uses Crt;
const n=10;
Type Mas=array [1..n] of real;
var X: Mas;
i, Col: integer;
Sum, Sred: real;
begin
ClrScr;
for i:=1 to n do
begin
Write (' X[',i,'] ='); ReadLn(X[i]);
if frac (X[i])=0 and (X[i] mod 2 =0) then
begin
Col:=Col+1;
Sum:=Sum+X[i];
end;
end;
WriteLn;
Sred:=Sum/Col;
WriteLn (' Количество четных = ', Col);
Writeln (' Их среднее число = ', Sred:6:3);
ReadLn;
end.
Строка неизменяемый объект, ответ А).