В-3 1) опишите последовательность 10 целых чисел с массива 2) дан фрагмент программы: for i: =1 to 10 do a[i]: =sqr(i)-i; определите элементы массива 3) дан массив (см 2). определите результат работы фрагмента программы: k: =0; for i: =1 to 10 do if (a[i]> 10) and (a[i]< 70) then k: =k+1; write(k); 4) напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все отрицательные элементы заменяет -1, а остальные заменяет на 1.
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
Код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := sqr(i) - i;
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if (a[i] > 10) and (a[i] < 70) then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
end.