Const A: array [1..7] of integer = (2,0,5,3,15,4,8); i, kol: integer; begin kol:=0; i:=0; mas:=7; for i:=0+1 to mas do begin if A[i] mod 5 = 0 then kol:=kol+1; end; write( ' количество таких элементов = ' , kol); writeln(); end.
1) К прикладным программам относятся: ✔ Текстовые редакторы (подходят все варианты - они все взаимодействуют с пользователем) ✔ Графические редакторы ✔ Бухгалтерские программы ✔ Табличные процессоры
2) В игре "Поле чудес" загадали слово из 16 букв. Вы просите открыть вторую букву. Когда вам ее открыли, какое количество информации вы получили? 1 16 бит 2 1 байт ✔ 4 бит (2^4 = 16) 4 8 бит
3) У матери было четыре сына: Миша, Ваня, Толя, Гоша. Двое из них близнецы. Известно, что Толя старше Миши, который моложе Гоши. Толя моложе Вани, который старше Гоши. Кто из детей близнецы? Из первого утверждения Толя > Миша и Гоша > Миша, из второго Ваня > Толя, Ваня > Гоша. Тогда Ваня > [Толя, Гоша] > Миша, Толя и Гоша - близнецы.
4) Какие из определений относятся к дисплейному процессору? ✔ составляющее видеокарты 2 электронное энергозависимое запоминающее устройство 3 устройство для ввода в компьютер изображения ✔ управляет работой дисплея
5) Что из нижеперичисленного можно отнести к информационным моделям? ✔ манекен ✔ карточка больного ✔ карта местности ✔ модель застройки городп
6) Какой символ необходимо разместить перед запросом в строке поиска в интернете, чтобы было обязательное присутствие всех слов в найденных документах? 1 & (это не указывается перед запросом) ✔ + 3 ! (это "не") 4 * (это замена любого слово в цитате
7) Ты работал в каталоге C:\DOOL\FORS1\DDD_Модель. Затем перешел на один уровень выше в дереве каталогов, спустился в подкаталог DDD_Рок и удалил из него файл coni.22. Назовите полное имя файла, который вы удалили. Изначально были в C:\DOOL\FORS1\DDD_Модель, подняли на уровень выше C:\DOOL\FORS1, спустились в подкаталог C:\DOOL\FORS1\DDD_Рок и удалили файл C:\DOOL\FORS1\DDD_Рок\coni.22
Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
i, kol: integer;
begin
kol:=0;
i:=0;
mas:=7;
for i:=0+1 to mas do begin
if A[i] mod 5 = 0 then
kol:=kol+1;
end;
write( ' количество таких элементов = ' , kol);
writeln();
end.