Вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами

30.10.2012, 15:07. **Показов** 2032. **Ответов** 1

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

Из n чисел, введенных с клавиатуры, вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами(без массивов)

@Puporev · 30.10.2012, 15:40

Pascal

uses crt;
var a,s,mn:real;
    n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  if i=1 then mn:=a
  else if odd(i)and(a<mn) then mn:=a;
  if(i mod 2=0)and(a>0) then s:=s+a;
 end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.

J3Tears
		1
	Вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами 30.10.2012, 15:07. Показов 2032. Ответов 1 Метки нет (Все метки) Из n чисел, введенных с клавиатуры, вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами(без массивов)

	30.10.2012, 15:40

Вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами

Решение