Перевести паскаль на кумир
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.
цел 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 пришлось объявить как обычную целую переменную, т.к. насколько я знаю, в Кумире нельзя задать константу (как неизменяемую величину с присвоенным именем).