Массивы. Сумма элементов массива

Сентябрь 7, 2022

Главная
Алгебра
Массивы. Сумма элементов массива

Содержание

2. Сумма элементов массива sum:=0; for i:=1 to n do sum:=sum+a[i]; writeln; writeln('Sum = ',sum); Разность элементов
3. Сумма четных и нечетных индексов массива sum:=0; i:=2; {i:=2- четные элементы ; i:=1 – нечетные элементы;}
4. вывести нечетные и четные элементы массива for i:=1 to n do begin if odd(a[i]) then write(a[i]:3);
5. Сравнение соседних элементов t := 0; i := 2; while i if (a [i] > a
6. Сортировка соседних элементов массива var a:array[1..10] of integer; i,t:integer; begin for i:=1 to 10 do begin
9. Скачать презентацию

Слайд 2

Сумма элементов массива
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
writeln;

writeln('Sum = ',sum);
Разность элементов массива
raz:=a[1];
for i:=2 to n do
raz:=raz-a[i];
writeln;
writeln('raz = ',raz);
Частное и произведение рассчитываются по аналогии с разностью и суммой элементов массива

Слайд 3

Сумма четных и нечетных индексов массива
sum:=0; i:=2; {i:=2- четные элементы ;

i:=1 – нечетные элементы;}
repeat
sum:=sum+a[i];
i:=i+2;
until i>n ;
writeln;
writeln('Sum = ',sum);
readln;
Аналогично рассчитываются разность, произведение и частное четных и нечетных элементов массива

Слайд 4

вывести нечетные и четные элементы массива
for i:=1 to n do

begin
if odd(a[i]) then
write(a[i]:3);
end;
for i:=1 to n do begin
if not odd(a[i]) then
write(a[i]:3);
end;

Слайд 5

Сравнение соседних элементов
t := 0;
i := 2;
while i

< m do
if (a [i] > a [i-1]) and (a[i] > a[i+1]) then begin
t := t + 1;
i := i + 2
end
else
i := i + 1;
writeln('Кол-во элементов, которые больше соседей: ', t);

Слайд 6

Сортировка соседних элементов массива
var a:array[1..10] of integer;
i,t:integer;
begin
for i:=1 to

10 do begin
a[i]:=random(8)+1;
write(a[i]:3); end;
writeln;
for i:=1 to 10 do begin
if i mod 2 = 1 then begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t; end;
end;
for i:=1 to 10 do
write(a[i]:3);
readln; end.

Слайд 7