Помогите,как составить программу которая формирует массив из 16 случайных чисел ...

July 2022 1 5 Report

Помогите,как составить программу которая формирует массив из 16 случайных чисел от -20 до 20 и определяет если в этом массиве хотя бы одно число кратное трём

Answers & Comments

Saints3312 Var a:array[1..16]of integer;
i,k:integer;
begin
for i:=1 to 16 do begin a[i]:=random(41)-20; write(a[i],' '); end;
for i:=1 to 16 do if (a[i] mod 3=0) and (a[i]<>0) then begin writeln('est'); k:=1; break; end;
if k<>1 then writeln('net');
end.

1 votes Thanks 1

Answers & Comments

tex ukazhite tip svyazi i tip kristallicheskoj struktury soedineniyaotvet poyasnit

pomogite napisat proekt na anglijskom yazyke pro francuzskij frankili druguyu de

pomogite s dopolnitelnoj informaciej nuzhno podgotovit pro osanku ne znayu s

dayu mnogo balov 1po kakim prichinam franciya proigrala vojnu s prussiej 1870 187

pomogite pozhalujsta ochennuzhno0c5fb8021a31696d984c7d55504e5d5b 20862

pomogite pozhalujsta ochennuzhno

pomogite napisatsochinenie po stihotvoreniyu nyane pushkina

pomogite sochinit skazku125a13683fdc5b82436f5aa7621bee50 98713

pomogite all federal judges to appoint by the president how many senators t

najdite zachenie a10001b pri1a045 b0232a00058 b42

рекомендуемые вопросы

Helpful Links

Helpful Social