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

@eGoR652 · Регистрация: 22.05.2012

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

1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет". Если введен какой-либо другой символ, выдать соответствующее сообщение.

2.Переставить пятую и предпоследнюю строки.

3.Вычислить сумму положительных элементов и произведение отрицательных элементов.

Срочно нужно. Заранее благодарю!)

@Петррр · 23.05.2012, 08:36

3

Pascal

program prog1;
uses
    crt;
const 
    size = 10;
var
    a: array[1..size] of integer;
    sum: integer;
    prod: integer;
    i: integer;
begin
    clrscr;
    randomize;
    sum := 0;
    prod := 1;
    for i := 1 to size do
    begin
        a[i] := random(21) - 10;
        write(a[i], ' ');
        if (a[i] > 0) then
            sum := sum + a[i]
        else if (a[i] < 0) then
            prod := prod * a[i];
    end;
    writeln(#10#13, 'Sum: ', sum);
    writeln('Prod: ', prod);
    readkey;
end.

@eGoR652 · 23.05.2012, 10:14 **[ТС]**

Сообщение от Петррр

writeln(#10#13,

- Ошибка: неверное выражение. Паскаль пишет.

@Петррр · 23.05.2012, 10:28

Pascal

1 2	writeln; writeln('Sum: ', sum);

@eGoR652 · 23.05.2012, 10:30 **[ТС]**

Спасибо!!)

@eGoR652 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 8
		1
	Вычислить сумму положительных элементов и произведение отрицательных элементов 22.05.2012, 14:25. Показов 1391. Ответов 4 Метки нет (Все метки) 1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет". Если введен какой-либо другой символ, выдать соответствующее сообщение. 2.Переставить пятую и предпоследнюю строки. 3.Вычислить сумму положительных элементов и произведение отрицательных элементов. Срочно нужно. Заранее благодарю!) 0

@eGoR652 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 8
	23.05.2012, 10:14 [ТС]	3
	Сообщение от Петррр writeln(#10#13, - Ошибка: неверное выражение. Паскаль пишет. 0

@eGoR652 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 8
	23.05.2012, 10:30 [ТС]	5
	Спасибо!!) 0

Опции темы