ПОМОГИТЕ ПРОШУ. ДАМ МАКСИМАЛЬНОЕ КОЛ-ВО БАЛЛОВ
1. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти в переменной S сумму всех элементов массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
...
end;
Ответ:
введите строку
2. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму положительных элементов массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + X[k]
end;
Ответ:
введите строку
3. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, которые делятся на 5? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + X[k]
end;
Ответ:
введите строку
4. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, десятичная запись которых заканчивается на 4? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + X[k]
end;
Ответ:
введите строку
5. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество чётных элементов массива? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + 1
end;
Ответ:
введите строку
6. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество элементов массива, делящихся на 3? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + 1
end;
Ответ:
введите строку
7. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество элементов массива, десятичная запись которых оканчивается на 6? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + 1
end;
Ответ:
введите строку
8. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? Вводите ответ без пробелов.
M:= X[1];
for k:=2 to N do begin
if ... then
M:= X[k]
end;
Ответ:
введите строку
9. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? Вводите ответ без пробелов.
M:= 1;
for k:=2 to N do begin
if X[k] > X[M] then
...
end;
Ответы на вопрос
Ответ
Задача: Найти сумму всех элементов массива.
S := 0;
for k := 1 to N do begin
S := S + X[k];
end;
Задача: Найти сумму положительных элементов массива.
S := 0;
for k := 1 to N do begin
if X[k] > 0 then
S := S + X[k];
end;
Найти сумму элементов массива, которые делятся на 5.
S := 0;
for k := 1 to N do begin
if X[k] mod 5 = 0 then
S := S + X[k];
end;
Задача: Найти сумму элементов массива, десятичная запись которых заканчивается на 4.
S := 0;
for k := 1 to N do begin
if X[k] mod 10 = 4 then
S := S + X[k];
end;
дача: Найти количество четных элементов массива
S := 0;
for k := 1 to N do begin
if X[k] mod 2 = 0 then
S := S + 1;
end;
Найти количество элементов массива, делящихся на 3.
S := 0;
for k := 1 to N do begin
if X[k] mod 3 = 0 then
S := S + 1;
end;
Задача: Найти количество элементов массива, десятичная запись которых оканчивается на 6.
S := 0;
for k := 1 to N do begin
if X[k] mod 10 = 6 then
S := S + 1;
end;
Задача: Найти минимальный элемент массива в переменной M.
M := X[1];
for k := 2 to N do begin
if X[k] < M then
M := X[k];
end;
Задача: Найти номер максимального элемента массива в переменной M.
M := 1;
for k := 2 to N do begin
if X[k] > X[M] then
M := k;
end;