Найти сумму целых положительных чётных чисел, меньших 100

@Карина Румянце · Регистрация: 26.09.2012

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

1. Найти сумму целых положительных чётных чисел, меньших 100.

@den57 · 19.12.2012, 20:23

Так? Если нет опиши подробнее

Pascal

const
    nn = 50;
 
var
    a: array[1..nn] of integer;
    i, k, x: integer;
 
begin
    write('Исходный массив: ');
    for i := 1 to nn do 
    begin
        a[i] := round(random(100) - 50);
        write(a[i], ' | ')
    end;
    writeln;
    x:=0;
    write('Новый массив: ');
    for i := 1 to nn do 
        if a[i] > 0 then begin
            write(a[i], ' | ');
            x:=x+a[i]
        end;
    writeln;
    write('Сумма положительных элементов: ',x);
end.

@den57 · 19.12.2012, 20:26

1)

Pascal

const
    nn = 50;
 
var
    a: array[1..nn] of integer;
    i, k, x: integer;
 
begin
    write('Исходный массив: ');
    for i := 1 to nn do 
    begin
        a[i] := round(random(100) - 50);
        write(a[i], ' | ')
    end;
    writeln;
    x:=0;
    write('Новый массив: ');
    for i := 1 to nn do 
        if a[i] > 0 then begin
            write(a[i], ' | ');
            x:=x+a[i]
        end;
    writeln;
    write('Сумма положительных элементов: ',x);
end.

@Карина Румянце 0 / 0 / 0 Регистрация: 26.09.2012 Сообщений: 39
		1
	Найти сумму целых положительных чётных чисел, меньших 100 19.12.2012, 17:13. Показов 3206. Ответов 2 Метки нет (Все метки) 1. Найти сумму целых положительных чётных чисел, меньших 100. 0

Опции темы

Найти сумму целых положительных чётных чисел, меньших 100

Решение