Var out, i:integer;beginfor i:=50 to 100 do if i mod 10 = 3 then inc(out);write(out);end.
<span>допустим первые три массива:
int a[10], b[10], c[10];
</span> int d[10] //четвертый массив
for (int i = 0; i < 0; ++i)
{
d[i] = a[i];
if(b[i]>d[i])
{
d[i] = b[i];
}
if ( c[i] > d[i])
{
d[i] = c[i];
}
<span>}</span>
<span>64*64*8=32768кб= 4096 байт = 4 кб</span>