Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
PascalABC.net
var x,y:real;
begin
write('Введите x: ');
readln(x);
if (x>=-2) and (x<=-1) then y:=2*x+4;
if (x>-1) and (x<=1) then y:=2*x*x;
if (x>1) and (x<=2) then y:=-2*x+2;
if (x<-2) or (x>2) then
writeln('Функция не определена')
else writeln('f(x)=',y);
<span>end.</span>
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
Де іменно розбити клітинки?