Нехай деякі змінні набувають відповідно значеньx=234, y= -85 , a=2.23, b=35000, c= 0.0.В яких з прикладів - id1599941120220227 от хочусдохнуть 27.02.2022 04:31

Question

Информатика: Нехай деякі змінні набувають відповідно значеньx=234, y= -85 , a=2.23, b=35000, c= 0.0.В яких з прикладів правильно описані вказані змінні: A : Var x,y:real; a,b,c:real; B : Var x,y:integer; a,b,c:integer; C : Var x,y:integer; a,b,c:real; D : Var x,y:real; a,b,c:integer E : Var x,y,b:integer; a,c:real; F : Var x:integer; y,a,b,c:real;

хочусдохнуть · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

//1

Var
ar:array[1..5] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to 5 do
   begin
    ar[i]:=random(5,37);
    writeln(ar[i]);
    s:=s+ar[i];
   end;
writeln('Sum=',s);
end.

//2

Var
ar:array[1..20] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to 20 do
   begin
    ar[i]:=random(-77,123);
    writeln(ar[i]);
    if ar[i] mod 2<>0 then s:=s+1;
   end;
writeln('Count=',s);
end.

//3

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
writeln('Array:');
for i:=1 to 5 do
   begin
    readln(ar[i]);
    r:=r+ar[i];
   end;
r:=r/5;
writeln('Res=',r);
end.

MOGZ ответил