Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
5.6000E+02 - 4.2000E+01 + 3.1300E+003 = 560 - 42 + 3130 = 3648
#include <iostream>
using namespace std;
int main()
{
int a[7];
int MAX = -1000*1000*1000-13;
for (int i = 0; i < 7; ++i)
cin >> a[i];
if (a[0] > MAX)
MAX = a[0];
if (a[1] > MAX)
MAX = a[1];
if (a[2] > MAX)
MAX = a[2];
if (a[3] > MAX)
MAX = a[3];
if (a[4] > MAX)
MAX = a[4];
if (a[5] > MAX)
MAX = a[5];
if (a[6] > MAX)
MAX = a[6];
cout << MAX;
}
Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.