Водномерном массиве а, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.

Ответы

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe

var

  a: array [1..12] of integer;   //одномерный массив из 12 целых чисел

  i: integer;  

 

begin

  for i: = 1 to 12 do   //вводим элементы массива с клавиатуры

  begin

    writeln('введите a[', i, ']');

    readln(a[i]);

  end;

  write('исходный массив:   ');   //выводим исходный массив

  for i: = 1 to 12 do

    write(a[i], '   ');

  writeln;   //перевод на новую строку

  write('измененный массив:   ');

  for i: = 1 to 12 do   {изменяем все положительные элементы на 5 и распечатываем полученный массив}

  begin

    if a[i] > 0 then a[i]: = 5;  

    write(a[i], '   ');

  end;

  writeln;   {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

если все правильно, отметь решение как лучшее)

     

Найдено 1 ответ(ов)
Показать ответы
Знаешь ответ?

Похожие вопросы:

материнская плата (системная плата) – это основной компонент компьютера, представляющей собой многослойную печатную плату, к которой подключаются все компоненты компьютера. материн...Подробнее
ответов: 4
а)переменной х присваивается предыдущее значение х+5(если переменная не инициализированна, то х=5) б)х присваивается значение х с обратным знаком в)переменной у присваивается значе...Подробнее
ответов: 3
1) (вторая буква гласная) или не (последняя буква гласная)2) (вторая буква согласная) или (последняя буква гласная)3) мы перевернули значение в скобках чтобы легче было найти,значи...Подробнее
ответов: 2
1) (вторая буква гласная) или не (последняя буква гласная)2) (вторая буква согласная) или (последняя буква гласная)3) мы перевернули значение в скобках чтобы легче было найти,значи...Подробнее
ответов: 3
Популярные вопросы