Напишите программу на языке Pascal.Элементы массива А, удовлетворяющие условию А(i)>5.5, переписать в массив В, а элементы, удовлетворяющие условию А(i)<=5.5, переписать в массив С. В массиве А m элементов.

Ответы (1)

Роджэр 10.05.2025 3

var
A,B,C: array[1..100] of integer;
  i,n,j,k:integer;
begin
randomize;
j:=0;
k:=0;
Readln(n);
Writeln('Исходный массив:');
for i:=1 to n do
begin
A[i]:=random(10);
writeln('A[',i,']=',A[i]);
end;
for i:=1 to n do
   if A[i]>5.5
  then
begin
j:=j+1;
B[j]:=A[i];
end;
for i:=1 to n do
if A[i]=5.5
then
begin
K:=k+1;
C[k]:=A[i];
end;
for i:=1 to j do
writeln('B[',i,']=', B[i]);
for i:=1 to k do
writeln('C[',i,']=', C[i]);
end.

Знаете правильный ответ?

Думаешь ответы не верны?

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

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: