Var
i:integer;
a,c:array[1..4]of integer;
b:array[1..2]of integer;
begin
write('Массив а: ');
for i:=1 to 4 do
begin
a[i]:=random(10);
if a[i]>b[1] then b[1]:=a[i];
c[i]:=random(10);
if c[i]>b[2] then b[2]:=c[i];
write(a[i],' ');
end;
writeln;
write('Массив c: ');
for i:=1 to 4 do write(c[i],' ');
writeln;
write('Массив b: ');
for i:=1 to 2 do write(b[i],' ');
<span>end.</span>
Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
...
int arr[100] = {1,3,7,8...22};
int summa = 0;
for(int i=0; i<100; i++)
{
if(arr[i]%3 == 0)
summa += arr[i];
}
...
В операционной системе есть калькулятор который умеет переводить в базовые системы счисления
Сначало посетил каталог под номером 3
c:\project\scheme\device
потом посетил каталог под номером 2
c:\install\local