Дано два
10-11 класс
|
массива q(n) и r(n). Найти сумму элементов массива q; произведение элементов r
и создать массив y(n) каждый элемент
которого равен: y
CONST N=10;
var
q,r,y:array[1..N] of integer;
s,i,p:integer;
begin
s:=0;
p:=1;
for i:=1 to N do begin
write('q[',i,'= '); readln(q[i]);
s:=s+q[i];
write('r[',i,'= '); readln(r[i]);
p:=p*r[i];
end;
for i:=1 to N do begin
y[i]:=q[i]+5*r[i];
write(y[i],' ');
end;
writeln(s,p);
end.
Другие вопросы из категории
канал связи передается сообщение: БАГВАА. Закодируйте сообщение данным кодом. Полученную последовательность переведите в шестнадцатеричный вид.
Помогите пожалуйста!!!
противном случае на экран выводится сообщение ошибка
Читайте также
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.
Написать программу для определения
наименьшего из чисел, составленных из цифр данных чисел. Незначащих
нулей в найденном числе быть не должно.
Формат входных данных:
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.