Вмассиве а(10) элементы с номерами 2,4,5,9 разделить на r. результат сохранить в тех же ячейках. с кумиром ))

231

365

Посмотреть ответы 2

Ответы на вопрос:

saigafarovatn

Информатика

4,4(30 оценок)

паскаль авс:

program maxtv; uses crt; const n=10; var a: array[1..n] of real; r: real; i: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); writeln('введите r, не равное 0'); readln(r); if r< > 0 then begin writeln('элементы массива: '); randomize; for i: =1 to n do begin a[i]: =random(100)-50; write (a[i]: 7: 2); end; writeln(); writeln('заменяем 2,4,5,9: '); a[2]: =a[2]/r; a[4]: =a[4]/r; a[5]: =a[5]/r; a[9]: =a[9]/r; for i: =1 to n do write (a[i]: 7: 2) end else writeln('ну вас же просили не вводить 0! '); end.