
size:real;
var i,j:dute;
path:strin;
mas:array[1..m] of bute;
const m:=10;
write('введите значение=',));
readln(path);
randomise();
write(size='');
for i=1 to size do
mas[i,j]:=random('255');
write(mas[i,j],'');
end
write;
for i:='1' to size do
for j:=1 downto size do
begin
if (mas[i])='12' dowrite (mas[i,j])
end;
end.
Сообщение отредактировано: Marinka -