Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
More Questions From This User See All
Answers & Comments
Verified answer
program xxx;
var
b, c : array [1..15] of integer;
i, s, a : integer;
begin
//Подключаем датчик случайных чисел
randomize;
//Цикл заполняющий массивы
for i:=1 to 15 do
begin
b[i]:=random(100);
c[i]:=(b[i] + i);
end;
//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(b[i],' ')
end;
writeln('');
//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
//Вводим число А
write('Введите число А=');
readln(a);
//Формируем 3-ий массив и находим сумму эоементов меньших А
s:=0;
for i:=1 to 15 do
if c[i]<a then begin c[i]:=c[i]* 2; s:=s+c[i]; end;
//Выводим на экран 3-ий массив
write('Третий массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
writeln('сумма элементов меньших А=', s);
readln
end.