Обработка одномерного массива : количество элементов: 20 вещественный чисел ; способ ввода: датчик случайных чисел ; способ вывода: в строку, через один пробел ; обработка массива: найти количество элементов равных 10 ; поиск: элементов равных 0 ; перестановка в массиве : поменять местами 3 и 6 элемент в массиве. данный массив нужно оформить в pascalabc ( не .net, так как другой паскаль в кабинете информатики не поддерживается железом ) буду каждому, кто , если такие буду.

216

347

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

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

DimaVlasov1

Информатика

4,8(19 оценок)

Program pas02; uses crt; const n=20; var a: array[1..n] of real; i,k: integer; t: real; begin randomize; clrscr; writeln('массив случайных чисел'); k: =0; for i: =1 to n do begin a[i]: =random(31)-15.0; write(a[i]: 6: 1); if a[i]=10.0 then inc(k) end; writeln; writeln('количество элементов, равных 10: ',k); write('нулевые элементы '); k: =0; for i: =1 to n do if a[i]=0 then begin inc(k); write(i,' ') end; if k=0 then writeln('отсутствуют') else writeln; writeln('меняем местами элементы 3 и 6'); t: =a[3]; a[3]: =a[6]; a[6]: =t; for i: =1 to n do write(a[i]: 6: 1); writeln end. тестовое решение массив случайных чисел 2.0 -12.0 8.0 -2.0 -1.0 3.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0 количество элементов, равных 10: 1 нулевые элементы 12 меняем местами элементы 3 и 6 2.0 -12.0 3.0 -2.0 -1.0 8.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0