Program Bolatkabylov; uses crt; const n=4; const m=5; var s:string; i,j,min:integer; A:array[1..n,1..m] of integer; B:array[1..m] of integer; begin S:='*** Alphaeus is thinking... ***'; for i:=1 to length(s) do begin write(s[i]); for j:=1 to 500000 do s[i]:=s[i]; end; writeln(); writeln('*** OK ***'); writeln(); writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, '); writeln('элементами которого будут минимальные элементы в каждом столбце массива А.'); randomize; writeln(); writeln('Массив А: '); //Заполняем массив А случайными числами и выводим его for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(100)-50; write(A[i,j]:4,' '); end; writeln(); end; //Находим минимальные элементы в каждом столбце и сохраняем в массив В for j:=1 to m do begin min:=A[1,j]; for i:=1 to n do begin if A[i,j]<min then min:=A[i,j]; end; B[j]:=min; end; //Выводим массив В writeln(); writeln('Mассив B: '); for j:=1 to m do write(B[j]:4,' '); end.
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. //Пакетов может быть неограниченное количество. Сколько гречи будет в //последнем заполненном пакете?
var x,a : longword; begin writeln ('Введите общую массу гречи, в граммах'); readln (x); writeln ('Введите массу насыпаемой в пакет гречи, в граммах'); readln (a); writeln ('полных пакетов будет ',(x div a)); if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи') else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи'); end.
uses crt;
const n=4;
const m=5;
var
s:string;
i,j,min:integer;
A:array[1..n,1..m] of integer;
B:array[1..m] of integer;
begin
S:='*** Alphaeus is thinking... ***';
for i:=1 to length(s) do begin
write(s[i]);
for j:=1 to 500000 do s[i]:=s[i];
end;
writeln();
writeln('*** OK ***');
writeln();
writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');
writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');
randomize;
writeln();
writeln('Массив А: ');
//Заполняем массив А случайными числами и выводим его
for i:=1 to n do begin
for j:=1 to m do
begin
A[i,j]:=random(100)-50;
write(A[i,j]:4,' ');
end;
writeln();
end;
//Находим минимальные элементы в каждом столбце и сохраняем в массив В
for j:=1 to m do begin
min:=A[1,j];
for i:=1 to n do
begin
if A[i,j]<min then min:=A[i,j];
end;
B[j]:=min;
end;
//Выводим массив В
writeln();
writeln('Mассив B: ');
for j:=1 to m do
write(B[j]:4,' ');
end.