1. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0] = 8, A[1] = 4 и т. д. Определите значение переменной s после выполнения следующего фрагмента программы (записанного ниже на разных языках программирования).
Алгоритмический язык Паскаль
s := 0
нц для j от 0 до 9
если A[j] <= 4 то
s := j
все
кц s := 0;
for j := 0 to 9 do
if A[j] <= 4 then
s := j;
var x, m: integer;
begin
x := 6;
m := x + 1;
end.
2.
var x, y: integer;
begin
x := 6;
y := 3;
if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')
end.
3.
1.
var x, m: integer;
begin
x := 6;
if x-1>0 then m := x - 1;
end.
4.
var x, y, m: integer;
begin
x := 6;
y := 3;
if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')
end.
5.
var x, y, m: integer;
begin
x := 6;
y := 3;
m := x * y;
end.
6.
var x, y, m, n: integer;
begin
x := 6;
y := 3;
n := x / y;
m := x mod y;
end.