Классная работа

Работа с индексами элементов массива

1 Найти среднее значение для элементов массива с чётными номерами. Массив задан с помощью ДСЧ. 1. Заполнить массив 2. Найти сумму и количество таких элементов 3. СР := S / к ;

Найти среднее значение для элементов массива с чётными номерами. Массив задан с помощью ДСЧ. S:=0; к:=0; For i:=1 to n do begin if i mod 2=0 then begin S:=S+a[i]; к:= к + 1; end;

Найти среднее значение для элементов массива с чётными номерами. Массив задан с помощью ДСЧ. СР := S / к ; CP типа REAL;

Найти среднее значение для элементов массива с чётными номерами. Массив задан с помощью ДСЧ. writeln (сумма элем. с четн. индексами =, S); writeln (кол-во элем. с четн. индексами =, к); Writeln(ср знач.=,СР : 5 : 2); End.

Создание нового массива

Массив А i – индекс массива А n – количество элементов в массиве А Массив В k – индекс массива B m – количество элементов в массиве B 2 Дан массив А. Создать новый массив В, состоящий из нечетных элементов массива А.

Дан массив А. Создать новый массив В, состоящий из нечетных элементов массива А. Program nob_mac; Var n, i, k, m: integer; a: array[1..100] of integer; b: array[1..100] of integer; Begin Заполнить массив А

k:=0; m:=0; т.к. массив В пустой Дан массив А. Создать новый массив В, состоящий из нечетных элементов массива А.

For i:=1 to n do begin if a[i] mod 2<>0 then begin k:=k+1; b[k]:=a[i] ; m:=m+1; end; Дан массив А. Создать новый массив В, состоящий из нечетных элементов массива А.

writeln(Новый массив); For k:=1 to m do writeln (k,_элемент массива В =,b[k] ) ; End. Дан массив А. Создать новый массив В, который содержит все не четные элементы массива А.

S:=0; for i:=1 to n do if (i mod 2<>0) and (a[i] mod 3=0) then s:=s+a[i]; 3 Найти сумму элементов массива с нечетными индексами, кратных 3. Массив вводится с клавиатуры.

2. Дан массив А. Создать новый массив В, который содержит все положительные элементы массива А. Практическая работа за компьютером 1. Найти сумму элементов массива кратных 5 с нечетными номерами. Массив задан произвольно. (A[ i ] mod 5 = 0) and ( i mod 2 <> 0) Домашнее задание

2) Измените условие задачи, если массив задан ДСЧ. Элементы с нечётными индексами замените на нули. Выведите новый массив на экран.