Вопрос по информатике:
Дан массив kon1 из 40 чисел. значения чисел случайным образом формируются из диапозона от -10 до +40. все элементы умножить на последний элемент.записать получившиеся в kon2 и вывести на экран
Пожаловаться
- 13.03.2018 00:48
- Информатика
- remove_red_eye 5172
- thumb_up 50
Ответы и объяснения 2
Program massiv;
const N=40;
var i : integer;
kon2:array[1..N]of integer;
kon1:array[1..N]of integer;
begin
writeln('изначальный массив');
randomize;
for i:=1 to N do
kon1[i]:=random(51)-10;
for i:=1 to N do
write(kon1[i],' ');
writeln;
writeln('исходный массив');
for i:=1 to N do
begin
kon2[i]:=kon1[i]*kon1[N];
write(kon2[i],' ');
end;
readln;
end.
const N=40;
var i : integer;
kon2:array[1..N]of integer;
kon1:array[1..N]of integer;
begin
writeln('изначальный массив');
randomize;
for i:=1 to N do
kon1[i]:=random(51)-10;
for i:=1 to N do
write(kon1[i],' ');
writeln;
writeln('исходный массив');
for i:=1 to N do
begin
kon2[i]:=kon1[i]*kon1[N];
write(kon2[i],' ');
end;
readln;
end.
Пожаловаться
- 14.03.2018 15:58
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы