24.11.2009, 20:29
У меня две задачки в лабораторной. Я их уже измучила. только не хотят и все.
Первая:
Найти НОК всех чисел содержащихся в заданной последовательности натуральных чисел.
ВТорая:
Из данной матрицы получить другую следующим образом: на место первой строки поместить вторую, на место второй третью и т.д., на место последней поместить первую.
вот к первой задаче код, но где-то я точно ошиблась.
program q;
var a:array [1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write ('vvedite massiv a[',i,']');
readln(a[i]);
end;
min:=a[1];
if a[i]<min then min:=a[i];
begin
for i:=1 to 5 do
if a[i] div min then
write (min);
end;
end.
Первая:
Найти НОК всех чисел содержащихся в заданной последовательности натуральных чисел.
ВТорая:
Из данной матрицы получить другую следующим образом: на место первой строки поместить вторую, на место второй третью и т.д., на место последней поместить первую.
вот к первой задаче код, но где-то я точно ошиблась.
program q;
var a:array [1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write ('vvedite massiv a[',i,']');
readln(a[i]);
end;
min:=a[1];
if a[i]<min then min:=a[i];
begin
for i:=1 to 5 do
if a[i] div min then
write (min);
end;
end.
