Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  program maxz1
Language: PASCAL
Code:
program z1;
var
a,b,c:array [1..100] of integer;
i,j,z,sum1,sum2,max:integer;
begin
sum1:=0;
sum2:=0;
readln (m);
readln (c3,c4);
for i:=1 to m do
   begin
   readln (a[i]);
   end;
for i:=1 to m do
   begin
   if i mod 3 =0 then sum1:=sum1+a[i];
   if i mod 4 =0 then sum2:=sum2+a[i];
   end;
for j:=1 to m do
   begin
   c[j]:=0;
   b[j]:=0;
   end;
if (c3) and (c4) <>0 then
   for i:=1 to m do
   begin
   if a[i] mod 2=0 then c[j]:=a[i]/c3
                   else b[j]:=a[i]/c4;
   end;
max:=-1000;
for j:=1 to m do
   if c[j]> max then max:=c[j];
readln;
end.
Comments: