Из исходного массива выбрать элементы, значения которых меньше 50 и сформировать новый - Pascal ABC

Формулировка задачи:

Из исходного массива А из 10 элементов выбрать элементы, значения которых меньше 50, но больше 10 и записать в новый массив В. Определить количество элементов нового массива. помогите пожалуйста составить программу.

Код к задаче: «Из исходного массива выбрать элементы, значения которых меньше 50 и сформировать новый - Pascal ABC»

textual
const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    i,j:integer;
begin
 writeln('A:');j:=0;
 for i:=1 to n do 
  begin
   a[i]:=random(101);
   if (a[i]<50)and(a[i]>10) then begin inc(j);b[j]:=a[i] end;
   write(a[i]:3)
  end;writeln;
 writeln('B:');
 for i:=1 to j do write(b[i]:3);writeln;
 writeln('количество элементов массива B: ',j)
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ