Var arr: array[1..27] of integer; summ: integer; begin Randomize; for var i := 1 to 27 do begin arr[i] := random(-5, 5); summ := summ + arr[i]; end; writeln('Массив: ',arr); writeln('Сумма всех элементов массива = ',summ); for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ; writeln('Массив: ',arr); end.
пример работы: Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1] Сумма всех элементов массива = 14 Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
var arr: array of integer; n,k,m: integer; begin write('Введи n: '); readln(n); Randomize; arr:= new integer[n]; for var i := 0 to n-1 do arr[i] := random(-5, 5); writeln('Массив: ',arr); for var i := 0 to n-1 do begin if arr[i]<0 then inc(k); if (i>=1) and (i<=6) then inc(m); if (i>=6) and (arr[i]>=0) then arr[i]:=1; end; writeln('Количество отрицательных элементов массива = ',k); writeln('Количество элементов массива в интервале [2..7] = ',m); writeln('Массив: ',arr); end.
Пример работы: Введи n: 5 Массив: [0,1,-4,1,3] Количество отрицательных элементов массива = 1 Количество элементов массива в интервале [2..7] = 4 Массив: [0,1,-4,1,3]
Введи n: 15 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3] Количество отрицательных элементов массива = 5 Количество элементов массива в интервале [2..7] = 6 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
1Компьютер это -многофункциональное электронное устройство для работы с информацией; 2.Манипулятор "мышь" - это устройство:ввода информации; 3. В процессе загрузки операционной системы происходит:Последовательная загрузка файлов операционной системы в оперативную память 4.Во время исполнения прикладная программа хранится:в оперативной памяти; 5.При отключении компьютера информация стирается:из оперативной памяти; 6 .Расширение файла, как правило, характеризует:тип информации, содержащейся в файле; 7Полный путь файлу: c:\\books\\raskaz.txt. Каково имя файла? raskaz.txt;
8.Операционная система это -программная среда, определяющая интерфейс пользователя; 9 .Программой архиватором называют:программу для уплотнения информационного объема (сжатия) файлов; 10.Сжатый файл отличается от исходного тем, что:он занимает меньше места11. Файловый вирус: запускаются при запуске компьютера; 12 .В случае появления запаха гари из компьютера необходимо: продолжать работать на компьютере альтернативный ответ- в школе дермовая проводка и из-за этого может загореться вся школа, ибо комьютера сделны из саммых дешевых китайских зачастей13 .Правая кнопка мыши позволяет вызвать меню следующего вида ниспадающее14.В процессе дефрагментации диска каждый файл записывается обязательно в последовательно расположенных секторах 15 . В целях сохранения информации жесткие магнитные диски следует оберегать от :Света Ударов при установке 16.При быстром форматировании гибкого диска: там меняются адреса на диске 17.Драйвер- это Программа, обеспечивающая работу устройства компьютера 18. Системный диск необходим для Хранения важных файлов 19.Программы, с которых пользователь решает свои информационные задачи, не прибегая к программированию, называются: Прикладными программами
var a:array of integer;
N,i,max,k:integer;
BEGIN
readln(N);
SetLength(a,N);
max:=-1001;
for i:=0 to N-1 do begin
read(a[i]);
if (a[i]>max) then begin
max:=a[i];
k:=i;
end;
end;
writeln(k);
for i:=0 to N-1 do
write(a[i],' ');
end.