6. составить алгоритм и написать программу вычисления суммы и среднего значения только отрицательных чисел из вводимых n произвольных (как положительных, так и отрицательных) целых чисел.n не больше 10
Var a:array[1..100] of integer; i,n,s,k:integer; begin s:=0; k:=0; write('Введите кол-во чисел: '); readln(n); write('Введите числа: '); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]<0 then begin s:=s+a[i]; inc(k); end; if k<>0 then begin writeln('Ср.знач. отрицательных чисел: ',s/k); writeln('Сумма отрицательных чисел: ',s); end else writeln('Отрицательных членов нет'); end.
Язык программирования Pascal ABC var n,k,i,j,d,c:integer; label 1,2; begin 1:writeln('Количество месяцев в календаре планеты Мульти:'); readln(n); if (n>109)or(n<1) then begin writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.'); goto 1; end; 2:writeln('Номер дня на который приходится первое число первого месяца нового года:'); readln(k); if (k>7)or(k<1) then begin writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.'); goto 2; end; d:=k; for i:=1 to n do begin for j:=1+(k-1) to 30 do begin if (d=5)and(j=13) then c:=c+1; d:=d+1; if d>7 then d:=1; end; k:=1; end; writeln('Количество несчастливых дней в этом году: ',c); end.
Язык программирования Pascal ABC var n,k,i,j,d,c:integer; label 1,2; begin 1:writeln('Количество месяцев в календаре планеты Мульти:'); readln(n); if (n>109)or(n<1) then begin writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.'); goto 1; end; 2:writeln('Номер дня на который приходится первое число первого месяца нового года:'); readln(k); if (k>7)or(k<1) then begin writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.'); goto 2; end; d:=k; for i:=1 to n do begin for j:=1+(k-1) to 30 do begin if (d=5)and(j=13) then c:=c+1; d:=d+1; if d>7 then d:=1; end; k:=1; end; writeln('Количество несчастливых дней в этом году: ',c); end.
i,n,s,k:integer;
begin
s:=0; k:=0;
write('Введите кол-во чисел: '); readln(n);
write('Введите числа: ');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then begin
s:=s+a[i];
inc(k);
end;
if k<>0 then
begin writeln('Ср.знач. отрицательных чисел: ',s/k);
writeln('Сумма отрицательных чисел: ',s); end
else writeln('Отрицательных членов нет');
end.