Question

2. Что выполняют фрагменты программ:
1. nFor i:=1 to 10 do readln(A[i]);
2. nFor i:=1 to 10 do A[i]:=random(1000)-500;
3. nFor i:=1 to 10 do writeln(A[i]);
4. nFor i:=1 to 10 do A[i]:=0;
5. For i:=1 to 10 do if A[i]<0 then B[i]:=abs(A[i]);
6. nj:=1;
For i:=1 to 10 do begin
B[j]:=A[i]*A[i];
B[j+1]:=A[i]*A[i]*A[i];
j:=j+2;
end;

Answer 1

1. Считывает 10 элементов с клавиатуры в массив

2. Заполнение массива из 10ти элементов случайными числами от -500 до 499

3. Вывод 10ти элементов массива

4. Заполнение массива из 10ти элементов нулями

5. Заполнение массива i-ых элементов В модулями i-ых отрицательных элементов массива А. Остальные элементы массива В будут нулями.

6. Заполнение нечетных элементов массива В квадратами элементов массива А, а четных - клубами.