составьте программу которая заполняет массив а[1..10] заполните случайными целым...

August 2022 1 2 Report

составьте программу которая заполняет массив а[1..10] заполните случайными целыми числами в диапазоне от 0 до 2 и выводит количество элементов,равных 1.

Answers & Comments

A1dar VAR a:array[1..10] of integer;
      i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
      begin
    a[i]:=random(3);
    if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.

1 votes Thanks 2

Answers & Comments

sostavte programmu kotoraya zapolnyaet massiv a110 zapolnite sluchajnymi celym119ff33f79781a574a5c248c71f005a6 4751

v kakom muzei nahoditsya kartina vasnecova severnyj kraj ochen srochnopomogite

prizyv hodit v muzej2 3 predlozheniya vklyuchaya kakie muzeikartinnye galerei v san

reshit sistemu uravnenij metod podstanovki4h 3u 1h 5u4

sokratit drob znachok eto v kvadrate a3a 9 a

postroit grafik funkcii u 5h 6ukazhite znacheniya hpri kotoryh ult0 pomogitee

v ravnobedrennom treugolnike avs s osnovaniem as ugol v raven 42najdite velichi

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

Helpful Links

Helpful Social