Учеба и наука
Программирование Delphi - вопрос №432521
Дано два массива. Найти наименьшее среди тех элементов первого массива, которые не входят во второй массив.
Дополнение автора от октябрь 21, 2012 г., 10:43:00
Мне просто код проги нужен а форма её ненадо.
Максим октябрь 21, 2012 г.
-
Всего ответов: 1
-
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
m=10;
var a:array[1..n] of integer;
b:array[1..m] of integer;
i,j:integer;
min:integer;
p:boolean;
begin
writeln('введите массив A');
for i:=1 to n do
readln(a[i]);
writeln('введите массив B');
for i:=1 to m do
readln(b[i]);
min:=32767;
for i:=1 to n do
begin
p:=true;
for j:=1 to m do
if a[i]=b[j] then p:=false;
// writeln(p:5,a[i]:8);
if p then
if a[i]<=min then min:=a[i];
// writeln(min);
end;
writeln('min=',min);
readln
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.