Компьютеры от компании apple.
bool loop = true;
int count = 0;
int sum = 0;
while (loop){
int i = Convert.ToInt32(Console.ReadLine());
sum += i;
count++;
if (i == 0){
loop = false;
Console.WriteLine(sum);
Console.WriteLine(sum/count);
}
}
Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
Var
n,k:integer;
begin
k:=5; n:=1;
repeat
k:=k+2;
n:=n+1
until n=10;
Writeln(k)
end.
Результат
23