По следующему описанию: Const M = 10; Var C : Array [0.M] of Integer; B : Array [0.M] of Boolean; построить…

Var s, i: integer; Mas:array[1.10] of integer;

Begin

Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6;

Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7;

Mas[9]:=5; Mas[10]:=3; s:=0;

for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];

for i:=1 to 10 do

if Mas[i]>0 then s:=s+Mas[1];

write(s)

End.

решение с пояснением

ПОМОГИТЕ ПРОШУ. ДАМ МАКСИМАЛЬНОЕ КОЛ-ВО БАЛЛОВ
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;

Для заданных массивов А[8, 8] и В[8,8] описать алгоритм образования суммы С=А+В разности P =A-B и вывода массивов C, P. (Алгоритм вычислений представить в форме по-пунктной записи, в виде блок схемы и N-S схемы) с условием. Заранее спасибо)

Что определяет для массива x[1.n,1.m] следующий алгоритм

v:=x[1];

for i:=1 to n do

for j:=1 to m do

If x[i,j]>v then v:=x[i,j];

a) минимальный элемент массива

б) сумму отрицательных элементов массива

в) максимальный элемент массива

г) количество положительных элементов массива

д) индекс последнего положительного элемента массива

е) ни один ответ не верен

Срочно.заданный одномерный массив А (8). Найти количество положительных элементов массива. С++

40 балов

Значения двух массивов A и B с индексами от 1 до 100 задаются при помощи следующего фрагмента программы: for i:=1 to n do A[i]:=i*i; for i:=1 to n do B[i]:=A[i]-100; Сколько значений больше 0 будет в массиве B?

Помогите пожалуйста!

Нужно написать программу, создающую двумерный массив из 25 элементов целого типа. C++

ЯЗЫК: Pascal

Const n=5; m=4;

var s, i, j : integer;

a: array [1.n, 1.m] of

integer;

begin

for i:= 1 to n do

for j:= 1 to m do

a[i,j]:=random(10);

for i:=1 to n do begin

for j:=1 to m do

write ( A[i,j]:5 );

writeln;

end;

S:=0;

For i:=1 to n do

For j:=1 to m do

S:=S+a[i,j];

Writeln(‘сумма элементов

массива равна ‘,S);

end.

Изменить программу таким образом, чтобы:

a. Матрица состояла из 15 элементов вещественного типа;

b. Значения элементов должны меняться в интервале от 3 до 7;

c. В результате выполнения программы должно быть найдено

произведение всех элементов матрицы;

d. Вычисляться сумма элементов матрицы по строкам.

Задн одномерный массив А. Требуется переписать элементы одномерного массива А кратные в 8 массив В, а если такие отсутствуют, то выдать соответствующее сообщение.

Pascal.

Дан двумерный массив целых чисел.
а) Составить программу, определяющую, верно ли, что сумма элементов
строки массива с известным номером оканчивается цифрой 0.
ПОЖАЛУЙСТА СРОЧНО! МОЖНО ЧЕРЕЗ С++ И ПОЛНОСТЬЮ КОД, ДАМ 20 БАЛЛОВ​