Выполните задание по информатике,пожалуйста!!!!! заполните и вывести на экран массив размером 7 случайными числами промежутками от 2 до 15 Увеличьте четные элементы на 3
Ответы
Ответ дал:
0
Const n=7;
Var i:Integer ;
A:array [1..n]of Integer ;
Begin
For i:=1 to N do begin
A[i]:=random(13)+2;
Write(' A[', i, ']=', a[i]) ;
End;writeln;
For i:=1 to N do begin
If a[i] mod 2=0 then A[i]:=a[i]+3;
Write (' A[', i, ']=', a[i]) ;
End;
End.
Ответ дал:
0
Добрый день, задание для рассмотрения https://znanija.com/task/32355478 Может, сможете помочь :)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад