Прошу с решением по информатике по теме "одномерные массивы" (язык программирования pascal). написать программы: 1) даны два числа а и в. если числа положительные, вычислить произведение этих чисел, если хотя бы одно их них отрицательное, вычислить сумму квадратов этих чисел. 2) дан произвольный массив, замените каждый второй элемент массива на ноль, а каждый пятый увеличите в 2 раза. и выведите полученный массив на экран.

1) var a,b: integer; begin readln(a,b); if (a> 0)and(b> 0) then writeln(a*b) else writeln(a*a+b*b); end. 2) const     n=30; var a: array[1..n] of integer; begin for var i: = 1 to n do     begin     a[i]: =random(100)-50;     write(a[i]: 3,' ');     end; writeln; for var i: = 1 to n do     begin     if i mod 2 = 0 then a[i]: =0     else if i mod 5 = 0 then a[i]: =a[i]*2;     write(a[i]: 3,' ');     end; end.

// pascalabc.net 3.2, сборка 1387 от 17.02.2017 // внимание! если программа не работает, обновите версию! 1) begin   var a,b: real;   read(a,b);   if (a> 0) and (b> 0) then writeln('произведение равно ',a*b)   else writeln('сумма квадратов равна ',a*a+b*b) end. 2) begin   var a: =arrrandom(readinteger('n=',99); a.println;   for var i: =0 to a.length-1 do       if i.isodd then a[i]: =0       else           if (i+1) mod 5 =0 then a[i]*=2;   a.println; end. пример n= 17 7 -49 -21 84 87 12 27 86 -29 -55 -32 -83 -24 96 -3 -3 -78 7 0 -21 0 174 0 27 0 -29 0 -32 0 -24 0 -6 0 -78 замечание "каждый второй" и "каждый пятый" пересечение на каждом десятом. и получается. что каждый десятый элемент должен быть обнулён. как каждый второй и удвоен, как каждый пятый, так что все равно получим ноль.

Дано n=2  a=640 b=272 v-? v=a*b*i ( i- неизвестно) найдем из формулы n=2^i  ;   2=2^i    i=1 бит v=a*b*i = 640*272*1=174080 бит переведем в кб 174080 /8/1024=2125 кб