Дан одномерный массив из n элементов в интервале [0,50] найти количество элемент...

September 2021 1 4 Report

Дан одномерный массив из n элементов в интервале [0,50] найти количество элементов попадающих в интервал [0,25] и количество элементов попадающих в интервал[40,50] (через процедуру)

Answers & Comments

Gleb1Kosyrev

Verified answer

Var ar:array of integer;
i,n:integer;

procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;

procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;

begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
end.

1 votes Thanks 1

georgiys Спасибо

Answers & Comments

Verified answer

dva stalnyh provoda soedineny posledovatelno i vklyucheny v cep vo skolko raz

koefficient treniya mezhdu polom i yashikom massoj 10 kg raven 025 kakuyu silu nado

pri kakom rastyagivayushem napryazhenii udlinenie latunnogo sterzhnya ravno 01 modul

batiskaf ravnomerno opuskaetsya na dno okeanicheskoj vpadiny izmenyatsya li energiya

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

Helpful Links

Helpful Social