Обработка одномерных массивов

@Джозефф · Регистрация: 17.12.2015

Author24 — интернет-сервис помощи студентам

Составить программу вычисления, W=B+A/C+1.
A - сумма положительных элементов массива;
B - наименьший элемент массива;
C - произведение элементов массива с нечетными номерами/

@Azazel-San · 18.12.2015, 22:18

Pascal

program a1;
uses crt;
const n=10;
type x=array [1..n] of integer;
var s:x;
    i:integer;
    a,b,c,w:real;
begin clrscr;
randomize;
for i:=1 to n do begin
s[i]:= random(50)-25;
write(s[i],' ');
end;
a:=0; c:=1;
for i:=1 to n do begin
if s[i]>0 then a:=a+s[i];
if b>s[i] then b:=s[i];
if odd(i) then c:=c*s[i];
end; 
writeln;
writeln('Cумма положительных элементов массива = ',a);
writeln('Hаименьший элемент массива = ',b);
writeln('Произведение элементов массива с нечетными номерами = ',c);
w:=b+a/c+1;
writeln ('W =  ',w:0:5);
readln
end.

@Джозефф 0 / 0 / 0 Регистрация: 17.12.2015 Сообщений: 6
		1
	Обработка одномерных массивов 18.12.2015, 21:53. Показов 1024. Ответов 1 Метки нет (Все метки) Составить программу вычисления, W=B+A/C+1. A - сумма положительных элементов массива; B - наименьший элемент массива; C - произведение элементов массива с нечетными номерами/ 0

	18.12.2015, 22:18

Опции темы

Обработка одномерных массивов

Решение