Информатика | 10 - 11 классы
>> Составить программу на Паскале.
Помогите составить программу для вычисления выражения на паскале?
Помогите составить программу для вычисления выражения на паскале.
Нужно составить программу в паскале?
Нужно составить программу в паскале.
Составить программу для решения этой формулы (Паскаль)?
Составить программу для решения этой формулы (Паскаль).
Составить программу для решения этой формулы (Паскаль)?
Составить программу для решения этой формулы (Паскаль).
Составить программу для решения этой формулы (Паскаль)?
Составить программу для решения этой формулы (Паскаль).
Составить программу для решения этой формулы (Паскаль)?
Составить программу для решения этой формулы (Паскаль).
Помогите составить программы паскаль, пожалуйста?
Помогите составить программы паскаль, пожалуйста.
По блок схеме составить программу на языке паскаля?
По блок схеме составить программу на языке паскаля.
Составить программу на Паскале с ветвлением?
Составить программу на Паскале с ветвлением.
Помогите составить программы на паскаль?
Помогите составить программы на паскаль.
Перед вами страница с вопросом >> Составить программу на Паскале?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Const n = 10 ;
var
a : array[1.
N, 1.
N] of integer ;
b : array[1.
N] of integer ;
i, j, s : integer ;
begin
Randomize ;
writeln('Исходный массив : ') ;
for i : = 1 to n do
begin
for j : = 1 to n do begin a[i, j] : = random(21) ; write(a[i, j] : 4) ; end ; writeln ;
end ;
for i : = 1 to n do
begin
s : = 0 ;
for j : = 1 to n do s : = s + a[i, j] ;
b[i] : = s ;
end ;
writeln('Полученный массив : ') ;
for i : = 1 to n do write(b[i] : 4) ;
writeln ;
end.
Пример :
Исходный массив : 8 12 16 16 19 15 11 11 13 7 7 3 20 3 13 2 20 18 9 2 18 11 17 0 4 0 18 3 17 12 12 9 18 9 18 4 7 15 4 20 17 12 13 20 12 20 4 10 16 18 15 19 2 1 18 20 13 1 19 3 12 7 8 13 3 3 15 13 2 15 15 0 20 9 20 14 3 19 6 20 12 4 19 0 19 2 18 4 12 10 3 7 5 15 15 3 19 9 10 8
Полученный массив :
128 97 100 116 142 111 91 126 100 94.