Дайте координаты Дайте координаты

Ответы

 

 

 

 

var a: array[1..10]of integer; n1,n2,s,i: integer; beginn1: =1; n2: =1; for i: =1 to 10 do a[i]: =random(10)+1; for i: =1 to 10 do beginif a[i] mod 2=0 then n1: =n1*a[i] else n2: =n2*a[i]; s: =s+a[i]; end; writeln(n1,' ',n2,' ',s/10); end.

 

 

объеденил все 3 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.

const - служебное слово программе константу, то есть неизменяемое значение.

оно задаётся следующим образом:

const

    pi = 3.14;

    name = 'михаил'

    a = 123;

cлужебное слово const в программе на языке pascal фиксирует начало раздела программы содержащего​ константы.

Найдено 3 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

Популярные вопросы