Const
n = 12;
var
i, p: integer;
a: array[1..n] of integer;
begin
p := 1;
for i := 1 to n do
begin
a[i] := random(150) - 100;
write(a[i], ' ');
if a[i] > 0 then p := p * a[i];
end;
writeln;
writeln('P = ', p);
end.
2)uses crt;
var a:array [1..10] of integer;
i:integer;
begin
clrscr;
randomize;
{генерируем и выводим новый массив}
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i]:3);
end;
writeln;
{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}
for i:=1 to 10 do
begin
if (i mod 2=0 ) then a[i]:=a[i]*a[i]
else a[i]:=a[i]*2;
end;
{выводим конечный массив}
for i:=1 to 10 do
write(a[i]:3);
readkey;
end.
3)var arr:array[1..20] of integer;
max,q:integer;
begin
writeln ('ARRAY: ');
for q:=1 to 20 do
begin
arr[q]:=random(80);
write (arr[q]:3);
end;
max:=arr[1];
for q:=2 to 20 do
if arr[q]>max then max:=arr[q];
writeln;
writeln('MAX = ',max);
end.
1. Не верно. Есть разные подходы к решению задач.
2. Да, они в себе могут умещать блоки if и циклы
3. Сортировка пузырьком
4. Надо подсчитать их временную сложность, то есть T(n)
5. Метод Кирилла хорош тем что он быстрее находит ошибки в своих программах. Метод Данила хорош тем что он больше усваивает
6. Синтаксические ошибки не могут быть скомпилированы, логические могут, но во время выполнения программы она будет вести себя некорректно, логические труднее исправить чем синтаксические
7. Можно запускать отдельные части программы;
8. Логическая