Значения двух массивов A[1..10] и B[1..10] задаются с помощью следующего фрагмента программы: for i:=1 to 10 do A[i]:=10-i; for

применения.

что каждый день Вы получаете сообщения

электронной
почты от неизвестных отправителей.

Как
называется такой тип угрозы безопасности?
Получение доступа путем обмана
Фишинг
клевета
Спам

Задание 22.
Написать в паскале программу.
http://cs540108.vk.me/c624831/v624831678/e2e5/T8n_Z6B_4MU.jpg

writeln(i*i);

программы:
For i:=1 to 100 do
For j:=0 to 17 do
If a [j] > a [j+2] then
Begin
T := a [j]; a [j] := a [j+2]; a [j+2] := t
End;
Чему станет равен элемент массива с номером 17, если в начале работы фрагмента в массиве находились числа от 20 до 1 в порядке убывания?

2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.

a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма

Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.

сначала задаются,а затем меняются.

Нц для i от 0 до 10

А [ i ] := i

кц

Нц для i от 0 до 4

С := A[ i ]

A[ i ] := A [10 - i ]

A [10 - i ] :=C

кц

Чему будут равны элементы массива после выполнения фрагмента программы?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 10 9 8 7 6 5 6 7 8 9 10

4) 0 1 2 3 4 5 4 3 2 1 0