5. На первом этапе программа предлагает запись различных ресурсов. Напиши отсутствующий ресурс. Запись видео: Импорт видео; импорт ... ; Импорт звука или музыки.
1. Современное решение (быстро, просто и легко) // PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4) end.
Пример 23 11.7 0 12.9 16.7 13 -12 Ср.арифм: 12.8833
2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)
uses Crt; var n:integer; x,a:real; begin a:=0; n:=0; repeat Read(x); if x>=0 then begin n:=n+1; a:=a+x end until x<0; a:=a/n; Writeln('Ср.арифм: ',a:0:4); ReadKey end.
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
int n[10],a,b;
float s;
cout<<"OT: ";cin>>a;
cout<<"DO: ";cin>>b;
srand(time(0));
for (int i = 0; i<sizeof(n)/sizeof(int);i++)
{
n[i] = a+rand()%b;
}
cout <<"Все числа: ";
for (int i = 0;i<sizeof(n)/sizeof(int);i++)
{
cout<<" "<<n[i];
s = s + n[i];
}
cout<<endl<<"ITOG: "<<s/(sizeof(n)/sizeof(int));
return 0;
}
Объяснение:
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.
Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833
2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)
uses Crt;
var
n:integer;
x,a:real;
begin
a:=0;
n:=0;
repeat
Read(x);
if x>=0 then begin
n:=n+1;
a:=a+x
end
until x<0;
a:=a/n;
Writeln('Ср.арифм: ',a:0:4);
ReadKey
end.