Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / VIBOR
.PAS unit vibor;
interface
type
mas=array[1..5]of string[10];
procedure v(m:mas;var mi:mas; k:integer);
implementation
procedure v(m:mas;var mi:mas; k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to 3 do
if m[i,1] in ['A'..'Z'] then begin k:=k+1;
mi[k]:=m[i];
end;
end;
end.
interface
type
mas=array[1..5]of string[10];
procedure v(m:mas;var mi:mas; k:integer);
implementation
procedure v(m:mas;var mi:mas; k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to 3 do
if m[i,1] in ['A'..'Z'] then begin k:=k+1;
mi[k]:=m[i];
end;
end;
end.