Срочно!!!!!!!!!!!!!!!!!!!!!
напишите программу в паскаль которая выводит квадраты первых 7 нечетных чисел в массиве
напишите программу в паскаль которая выводит квадраты первых 7 нечетных чисел в массиве
More Questions From This User See All
Answers & Comments
Var a:array[1..20] of Integer ;
n,i:integer;
Begin
n:=7;
WriteLn('Массив');
For i:= 1 to 20 do
begin
a[i]:=Random(20);
Write(a[i]:3);
end;
Writeln;
Writeln('Квадраты первых 7 нечетных чисел');
For i:=1 to 20 do
if (a[i] mod 2 = 1) and (n<>0)then
begin
Write(sqr(a[i]):4);
n:=n-1;
end;
end.