Question

ПОМОГИТЕ ПЕРЕВЕСТИ ПАСКАЛЬ НА КУМИР
const n=10;

var

a:array[1..n] of integer;

i,x:integer;

begin

//Задание №1

for i:=1 to n do begin

a[i]:=0;write(a[i]:3);

end;

writeln;

//Задание №2

for i:=1 to n do begin

a[i]:=i;write(a[i]:3);

end;

writeln;

//Задание №3

readln(x);

for i:=1 to n do begin

a[i]:=x+i-1;write(a[i]:3);

end;

end.​

Answer 1

Ответ:

цел n = 10

цел таб a[1:n]

цел i, x

алг

нач

| Задание №1

нц для i от 1 до n

a[i] := 0; вывод a[i]:3

кц

вывод нс

| Задание №2

нц для i от 1 до n

a[i] := i; вывод a[i]:3

кц

вывод нс

| Задание №3

ввод x

нц для i от 1 до n

a[i] := x + i - 1; вывод a[i]:3

кц

кон

Объяснение:

Суть программы не поменялась, за одним исключением- константу n пришлось объявить как обычную целую переменную, т.к. насколько я знаю, в Кумире нельзя задать константу (как неизменяемую величину с присвоенным именем).