Напишите, пожалуйста, подробную...

Тема в разделе "Информатика", создана пользователем Yerjini, 20 янв 2010.

  1. Yerjini

    Yerjini New Member

    Напишите, пожалуйста, подробную задачу по информатике в Паскале. Содержание: В равномерном массиве А10 состоящих из целых чисел, еслиэлемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0.
     
  2. Saleksus

    Saleksus New Member

    program lol;
    var
    a10:array[1..20] of integer;
    i:integer;
    begin
    randomize;
    for i:=1 to 20 do
    begin
    a10:=random(50)-39;
    writeln('Element #',i,': ',a10);
    end;
    writeln;
    for i:=1 to 20 do
    begin
    if a10 > 0 then a10:=a10*2;
    if a10 < 0 then a10:=0;
    writeln('Element #',i,': ',a10);
    end;
    readln;
    end.
     

Поделиться этой страницей

Наша группа