Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;
var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
<span>end.
Если есть какие-то вопросы или ещё нужна помощь, в ЛС.
</span>
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
<span> setlocale (0,"russian");</span><span>
srand (time(NULL));
</span><span> short A[3],B[3];</span><span>
int a=0,b=0;</span><span>
cout << "Случайное заполнение массивов: " << endl;
</span><span> cout << "1-ый: ";
</span><span> for (short i=0;i<3;i++)</span><span>
{
</span><span> A[i]=rand()%20-9;</span><span>
cout << A[i] << ' ';</span><span>
a+=A[i];
</span><span> }
</span><span> cout << endl << "2-ой: ";
</span><span> for (short i=0;i<3;i++)</span><span>
{
</span><span> B[i]=rand()%20-9;</span><span>
cout << B[i] << ' ';</span><span>
b+=B[i];
</span><span> }
</span><span> cout << endl << "Произведение суммы данных массивов: " << a*b;</span><span>
system ("PAUSE>>VOID");</span><span>
return 0;
</span><span>}</span>
Var i:Integer;s:real;
A:array[1..130]of integer;
Begin
S:=0;
For i:=1 to 130 do begin
A[i]:=random(100);
S:=s+A[i];
End;
S:=s/130;
Write(s);
End.
Всего 275 решений
Копируете свою схему и получаете решение