Const n = 4; c = 7; var a: array[1..n,1..n] of integer; i,j: integer; s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' '); if a[i,j] < c then s: =s+a[i,j]; end; writeln end; writeln('s = ',s); end.
Спасибо
Ответ дал: Гость
самотестирование компьютера
|
первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы
|
второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.
|
программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей
при включении комп. ос загружается в оп раньше остальных программ
Ответ дал: Гость
program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Популярные вопросы