var
x:array[1..15]of integer;
i,min,z:integer;
begin
min:=32000;
z:=0;
for i:=1 to 15 do
begin
readln(x[i]);
if x[i]>0 then if x[i]<min then min:=x[i];
if x[i]=0 then inc(z);
end;
writeln(min);
writeln(z);
end.
Объяснение:
Язык не был указан, так что пишу на С++:
1)
#include <iostream>
using namespace std;
int main()
{
int buf, quantity = 0;
cin >> buf;
int sum = 0;
while (buf != 0) {
++quantity;
sum += buf;
cin >> buf;
}
cout << "Sum: " << sum << "\nAverage: " << sum / quantity;
}
2)
#include <iostream>
using namespace std;
int main()
{
int buf;
cin >> buf;
int max_num = buf;
while (buf != 0) {
if (max_num < buf) {
max_num = buf;
}
cin >> buf;
}
cout << "Max: " << max_num;
}
Program SumAndMul;
Uses Crt;
var a:array[1..10] of real;
i:integer;
sum,mul:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите -', i,' число:' );
readln(a[i]);
end;
sum:=0;mul:=1;
for i:=1 to 10 do
begin
if (a[i]>0) then sum:=sum+a[i];
if (a[i]<0 ) then mul:=mul*a[i];
end;
writeln('Сумма положительных элементов: ',sum);
writeln('Произведение отрицательных элементов: ',mul);
readkey;
end.
Var
x : array [1..15] of integer;
i : integer;
min : integer;
Kol_nol : integer;
begin
Kol_nol := 0;
for i:=1 to 15 do
begin
Write ("Введите элемент массива:");
Readln(x[i]);
end;
min := x[1];
for i := 0 to 15 do
begin
if (x[i] > 0) then
begin
if (x[i] < min) then
begin
min := x[i];
end;
end;
if (x[i] = 0) then
begin
Inc(kol_nol);
end;
Writeln(min);
Writeln(kol_nol);
end;