Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Программирование Delphi

Программирование Delphi - вопрос №432521

Дано два массива. Найти наименьшее среди тех элементов первого массива, которые не входят во второй массив.



Дополнение автора от 21.10.12 11:43:00

Мне просто код проги нужен а форма её ненадо.

Максим
21.10.12
Учеба и наука / Информатика
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.
 
21.10.12

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее