#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>
Ответ:
Спросить
Объяснение:
Спросить зачем ему адрес и номер
Program tablisa_umnogenya;
var i,x,a: integer;
begin
read(x);
a:=0;
for i:=1 to 10 do
begin
a:=a+x;
writeln(a);
end;<span>
end.
эта программа на Паскаль, на оценку среднюю, тк считаю что на оценку повыше, недостаточно понятное оформление, если на оценку повыше, то заменить строку "</span>writeln(a); " на "writeln(x,'*',i,'=',a);"
CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
<em>end;</em>
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
<span>
end.</span>