Выполните задание по информатике,пожалуйста!!!!! заполните и вывести на экран массив размером 7 случайными числами промежутками от 2 до 15 Увеличьте четные элементы на 3
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.