ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число С. Элементы вводятся с клавиатуры.
Program sredarifmet; Var a: array[1..10] of real; i, k: integer; C, S, sred: real; Begin For i:=1 to 10 do begin write(‘a[‘,i,’]=’); readln (a[i]); end; write(‘введите С: ‘); readln (C); For i:=1 to 10 do begin If a[i]>C then begin S=S+a[i]; K=K+1; end; end; sred=S/k; Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’ равно ‘,sred); End. Найти произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program proizved_chet; Var a: array [1..100] of integer; i, n, p: integer; Begin p:=1; write ('n='); readln (n); for i:=1 to n do begin write ('a[',i,']='); readln (a[i]); if i mod 2=0 then p:=p*a[i]; end; Writeln ('произведение элементов массива с четными номерами равно ',p); End.
Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с клавиатуры. Размер n. Kol – количество элементов в последовательности В К – номер элемента последовательности В
Program newmasiv; Var a: array[1..100] of integer; b: array[1..100] of integer; kol, n, i, k: integer; Begin kol:=0; k:=0; write ('n='); readln (n); For i:=1 to n do begin write(‘a[‘,i,’]=’); readln (a[i]); if a[i] mod 2=0 then begin k:=k+1; b[k]:=a[i]; kol:=kol+1; end; end; if kol=0 then writeln(‘четных элементов нет’) else for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]); end; Не нашли, что искали? Воспользуйтесь поиском:
|