Var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.

0 0

4 года назад

Дано натуральному число. Верно ли,что сумма его цифр не меньше 10?

Наталлли [147]

Нет, это может быть любум числом, (например 11-1+1=2-меньше 10)

0 0

3 года назад

Прочитать ещё 2 ответа

Дан одномерный массив прибавить к каждому числу 25

Lizzka

Какая размерность массива? А вообще просто строишь цикл
for i:= 1 to N do
a[i]:= a[i] + 25;

0 0

4 года назад

Создайте проект для исчисления суммы n чисел, первое из которых равно х, а каждое следующее равно квадрату предыдущего

soniksa15 [116]

<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>

begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.

Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108

0 0

4 года назад