//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.
Блок-схема - в прилагаемом файле.
var
a:array[1..15] of integer;
i, count:integer;
begin
count := 0;
writeln('Индексы отрицательных элементов:');
for i := 1 to 15 do
begin
a[i] := 15 - 4 * i;
if a[i] < 0 then
begin
inc(count);
write(i, ' ');
end;
end;
writeln;
writeln('Вего отрицательных элементов - ', count);
end.
Var a:array[1..10] of real;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10+random;
write(a[i]:0:2,' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 10 do
begin
if i mod 2 = 0 then a[i]:=a[i]/2;
write (a[i]:0:2,' ');
end;
end.
var a:array[1..7] of integer;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 7 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 7 do
begin
if a[i] mod 10 = 0 then a[i]:=0;
write(a[i],' ');
end;
end.