1) даны целые числа a, b, c, d. сколько среди них отрицательных и оканчивающихся на 7. 2) даны целые числа a, b, c, d. найдите сумму тех из них, которые кратны 4, больше -50 и не превышают 70. 3) даны целые числа a, b, c, d. найдите сумму тех из них, которые кратны 4 и по модулю не превышают 100. паскаль
Ответы
1. Индексом элемента называется…
- Номер элемента в массиве
2. Массив данных имеет: - Общее имя и один тип.
3. Что такое массив?
- Совокупность однотипных данных, хранящихся в последовательных ячейках памяти.
4. В записи D[4]=3.5, D обозначает…
- Имя массива.
5. Какой ряд данных можно назвать массивом?
- 2.3, 5.7, 10.89.
6. Найдите правильное описание массива.- D: array[1..5] of real;
7. Для заполнения массива случайными числами мы должны подключить датчик случайных чисел, используя команду…
- Randomize;
8. Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор…
- Readln;9. Что выполняет следующий фрагмент программы: For i:=1 to N do write (a[ i ], ‘ ’);
- Выводит N значений массива на экран.
10. Для подсчета суммы элементов массива в цикле используем следующую запись…
- Sum:=sum+a(i);
11. Что выполняет следующий фрагмент программы?
Min:=a[1]; For i:=1 to N do if a[i]< min then min:=a[i]; Writeln(min);
- Выбирает минимальный элемент массива.
12. Для подсчета количества положительных элементов массива будем использовать условие…
- If a[i]>0 then k=:k+1;
13. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение суммы после выполнения следующего фрагмента программы:
sum:=0; for i:=1 to 8 do sum:=sum+r[i]; writeln (sum);
- 25
14. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение суммы после выполнения следующего фрагмента программы:
sum:=0; for i:=1 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- 21.
15. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8. Определите значение переменной i после выполнения следующего фрагмента программы:
sum:=0; for i:=2 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- 9
16. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной i после выполнения следующего фрагмента программы: sum:=0; for i:=1 to N do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- нельзя определить.
17. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной kol после выполнения следующего фрагмента программы: kol:=0; for i:=1 to 8 do if r[i]>-2 then kol:=kol+1; writeln (kol);
- 6.
18. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной kol после выполнения следующего фрагмента программы alphaeus: kol:=0; for i:=1 to 8 do if r[i]<0 then kol:=kol+1; writeln (kol);
- 2
19. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной max после выполнения следующего фрагмента программы: max:=r[1]; for i:=1 to 8 do if r[i]>max then max:=r[i]; writeln (max);
- 12.
20. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной min после выполнения следующего фрагмента программы: min:=r[1]; for i:=1 to 8 do if r[i]< min then min:=r[1]; writeln (min);
- -61. Индексом элемента называется…
- Номер элемента в массиве
2. Массив данных имеет:
- Общее имя и один тип
3. Что такое массив?
- Совокупность однотипных данных, хранящихся в последовательных ячейках памяти
4. В записи D[4]=3.5, D обозначает…
- Имя массива 5. Какой ряд данных можно назвать массивом?- 2.3, 5.7, 10.89.
6. Найдите правильное описание массива.
- D: array[1..5] of real;
7. Для заполнения массива случайными числами мы должны подключить датчик случайных чисел, используя команду…
- Randomize;
8. Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор…
- Readln;9. Что выполняет следующий фрагмент программы: For i:=1 to N do write (a[ i ], ‘ ’);
- Выводит N значений массива на экран.
10. Для подсчета суммы элементов массива в цикле используем следующую запись…
- Sum:=sum+a(i);
11. Что выполняет следующий фрагмент программы?
Min:=a[1]; For i:=1 to N do if a[i]< min then min:=a[i]; Writeln(min);
- Выбирает минимальный элемент массива.
12. Для подсчета количества положительных элементов массива будем использовать условие…
- If a[i]>0 then k:=k+1;
13. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение суммы после выполнения следующего фрагмента программы:
sum:=0; for i:=1 to 8 do sum:=sum+r[i]; writeln (sum);
- 25
14. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение суммы после выполнения следующего фрагмента программы:
sum:=0; for i:=1 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- 21.
15. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8. Определите значение переменной i после выполнения следующего фрагмента программы:
sum:=0; for i:=2 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- 9
16. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной i после выполнения следующего фрагмента программы: sum:=0; for i:=1 to N do if r[i]>5 sum:=sum+r[i]; writeln (sum);
- нельзя определить.
17. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной kol после выполнения следующего фрагмента программы alphaeus: kol:=0; for i:=1 to 8 do if r[i]>-2 then kol:=kol+1; writeln (kol);
- 6.
18. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной kol после выполнения следующего фрагмента программы: kol:=0; for i:=1 to 8 do if r[i]<0 then kol:=kol+1; writeln (kol);
- 2
19. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной max после выполнения следующего фрагмента программы: max:=r[1]; for i:=1 to 8 do if r[i]>max then max:=r[i]; writeln (max);
- 12.
20. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.
Определите значение переменной min после выполнения следующего фрагмента программы: min:=r[1]; for i:=1 to 8 do if r[i]< min then min:=r[1]; writeln (min);
- -6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('k=',
ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.
Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.