Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
Program VD1;
Uses crt;
Var
m, i: integer;
M: array 1..10 of integer;
Begin
clrscr;
Writeln('Nhap cac so a, b, c, d');
Write('a= '); Readln(M[1]);
Write('b= '); Readln(M[2]);
Write('c= '); Readln(M[3]);
Write('d= '); Readln(M[4]);
m:=M[1]; 
For i:= 1 to 4 do
 If m < M[i] then m:= M[i];
Writeln (M[i]);
End.
          
Comments: