Синформатикой. в масиве подсчитать количество отрицательных кратных 3 и произведение положительных меньше 10

189

251

Посмотреть ответы 2

Ответы на вопрос:

blackcat18

Информатика

4,4(25 оценок)

Program n1; var a: array[1..12] of integer; k,i: integer; p: real; begin randomize; k: =0; p: =1; write('исходный массив: '); for i: =1 to 12 do begin a[i]: =random(21)-10; write(a[i],' '); if (a[i]< 0) and (a[i] mod 3=0) then k: =k+1; if (a[i]< 10) and (a[i]> 0) then p: =p*a[i]; end; writeln; writeln(k); writeln(p); end.

0ananasik0

Информатика

4,8(32 оценок)

Много информации получит) трехдюймовая дискета вроде бы 1.44 мб ученик прочитает 4800 символов 1 симовл = 1 байт 1 дискета = 1457664 байт он будет читать 9110 минут о_о