PASCAL,帮忙编循环程序,

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/14 09:08:42

PASCAL,帮忙编循环程序,
试编一程序,输入十个数,求最大数、最小数、最大数位置、最小数位置、平均数、总和,用WHILE循环、FOR循环做,似乎还要下标,两种都要!

一、用for无条件循环做
var
imax, imin, max_pos, min_pos, num, sum, i: Longint;
begin
imax := -2147483647;
imin := 2147483647;
max_pos := 0;
min_pos := 0;
sum := 0;
for i := 1 to 10 do
begin
Read(num);
if num > imax then
begin
imax := num;
max_pos := i;
end;
if num < imin then
begin
imin := num;
min_pos := i;
end;
Inc(sum, num);
end;
Writeln('Max Number: ', imax, ', Position: ', max_pos);
Writeln('Min Number: ', imin, ', Position: ', min_pos);
Writeln('Average: ', sum/10);
Writeln('Summation: ', sum);
Readln;
Readln;
end.
二、用while条件循环做
var
imax, imin, max_pos, min_pos, num, sum, i: Longint;
begin
imax := -2147483647;
imin := 2147483647;
max_pos := 0;
min_pos := 0;
sum := 0;
i := 1;
while i imax then
begin
imax := num;
max_pos := i;
end;
if num < imin then
begin
imin := num;
min_pos := i;
end;
Inc(sum, num);
Inc(i);
end;
Writeln('Max Number: ', imax, ', Position: ', max_pos);
Writeln('Min Number: ', imin, ', Position: ', min_pos);
Writeln('Average: ', sum/10);
Writeln('Summation: ', sum);
Readln;
Readln;
end.

.用FREE PASCAL 编程序打印出下列平行四边形图案怎么用Pascal编一个判断回文数的程序 pascal程序用,请用repeat语句实现请帮忙, 帮忙解一道pascal题目,有程序的 NOIP2008火柴棒程序 PASCAL谁帮忙看下请各位帮忙编一下MATLAB程序能帮忙编个MATLAB程序吗? C# 编一个程序,用while循环语句 PASCAL语言程序基本概念 Free pascal程序 pascal程序：数列 free pascal 改程序