Одна из первых программ на pascal/delphi у меня.
У Rodman, я подсматривал  | Код |
program Project1;
{$APPTYPE CONSOLE Borland Delphi 2005}
uses
SysUtils;
var
a:array[1..100] of smallint;
k, i, count, sum: smallint;
begin
write('Enter length array = ');
readln(k);
{ читаем числа с консоли }
i:=1;
while i<=k do begin
write('number[', i, '] = ');
readln(a[i]);
i:=i+1;
end;
{ выводим числа на консоль }
i:=1;
writeln;
writeln('Out array[', k, ']');
while i<=k do begin
writeln('number[', i, '] = ', a[i]);
i:=i+1;
end;
{среднее арифметическое всех отрицательных элементов}
i:=1;
count:=0;
sum:=0;
while i<=k do begin
if( a[i]<0 ) then begin
sum:= sum+a[i];
count:=count+1;
end;
i:=i+1;
end;
writeln;
if (count>0) then
writeln('Arithmetical mean = ', sum/count)
else
writeln('Zero of negative elements !');
readln;
end.
|
|
