Информатика. PascalABC. Прошу помочь написать программы: 1. Дана последовательность чисел С1, С2, ..., С18. Найти произведение элементов этой последовательности до первого нулевого и сумму элементов, расположенных после него. ...
Информатика. PascalABC.
Прошу помочь написать программы:
1. Дана последовательность чисел С1, С2, ..., С18. Найти произведение элементов этой последовательности до первого нулевого и сумму элементов, расположенных после него.
2. Из массива a1, a2, ..., a30 исключить максимальный элемент.
Желательно с пояснениями, заранее спасибо!
Гость
Ответ(ы) на вопрос:
Гостьvar C:Array[1..18] of integer; i,p,s,k:integer;beginp:=1;for i:=1 to 18 do beginC[i]:= random(10)-5;write(C[i]:4);if C[i] = 0 then k:= 1;if k = 0 then p:= p * C[i]else s:= s + C[i];end;writeln;write('Произведение = ',p , ' Сумма = ',s);end.
var C:Array[1..30] of integer; i,max,q:integer;beginfor i:=1 to 30 do beginC[i]:= random(100)-50;write(C[i]:4);if C[i] > max then begin max:= C[i];q:=i;end;end;writeln;C[q]:= 0;for i:=1 to 30 dowrite(C[i]:4);end.
Не нашли ответ?
Похожие вопросы