Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
program Bystrov4var;
var i, a:integer;
m: array [1..10] of real;
begin
  i:=1;
  writeln;
  while i<=10 do
begin
   read(m[i]);
   i:=i+1;
  end;
  i:=2;
  a:=1;
  for i:=2 to 10 do
  begin
   if m[i]<m[a] then
   begin
    a:=i;
   end; 
  end;
  writeln('Исходный массив:');
  i:=1;
  repeat
    writeln(m[i]:8:2);
    i:=i+1;
  until i>10 ;
  writeln('Минимальный элемент исходного массива:');
  writeln(m[a]:8:2);
end.
Comments: