Тема «основные государственные услуги» поделить на 3 столбца, название, описание, интернет адрес.?

227

296

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

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

iulelebedeva

Информатика

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

Var a: array [1..16] of integer; i, c: integer; begin for i: =1 to 16 do begin a[i]: =random(-20,20); writeln('a[',i,']= ',a[i]); end; for i: =1 to 16 do if (a[i] mod 3 = 0) then c: =c+1; if c > 0 then writeln('в получившемся массиве ', c, ' чисел, кратных трём.') else writeln('в данном массиве нет чисел, кратных трём.'); end.