var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
Это указания имя столбца и номера строки конкретной ячейки.
Диапазон это указание адресов двух ячеек, область между которыми и будет диапазоном
Program chisla;
uses crt;
var a:integer;
begin
Write('Введите число - ');
readln(a);
If a>0 then
write('+1')
else begin
If a<0 then
write('-1')
else begin
If a=0 then
write('0')
else begin
end;
end;
end;
<span>end.</span>