Помогите, пожалуйста, написать программу на языке Pascal.
Условие таково: Пользователь вводит числа (кол-во которых заранее определено в программе) , после ввода всех чисел программа должна вывести числа, так чтоб все положительные были в 2 раза больше, а отрицательные заменить на ноль.
В программе используется массив.
Например так:
Введенные данные:
3
-9.63
8
1.1
Ответ: 6 0 16 1.21
P.S. В общем, единственное, что я не пока не догоняю, как сделать чтоб в ответе было несколько элементов (какой оператор повтора использоeE2ать, по моему это repeat, а может и case, но я забыл как их применять) там сколько чисел ввели, столько чисел и результат.

  • const n=6; var a:array[1..n]of integer; i:integer;
    begin
    write('Enter ',n,' integer numbers: '); for i:=1 to n do read(a[ i]); readln;
    for i:=1 to n do if a[ i]>0 then write(2*a[ i]:8) else write(0:8); writeln; readln
    end.
  • FOR использовать не пробовал ??
  • к примеру есть у нас массив arr = array[10] of integer;
    теперь пишем в теле программы :
    [code]
    for i = 1 to 10 do begin
    readln(arr);
    if arr>0 then begin
    arr *2;
    end;
    if arr< =0 then begin
    arr = 0;
    end;
    writeln("");
    write(arr);
    end;
    end.
    [/code]
  • icq 118024746