найти сумму элементов массива H(11) ,стоящих на четных местах и их количество
10-11 класс
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 #include "stdafx.h"
var
n:array [1..11] of integer;
i,k,s:integer;
begin
for i:=1 to 11 do begin
write ('N[',i,'] = ');readln(n[i]);
end;
s:=0;
k:=0;
for i:=1 to 11do
if odd(i)=true then begin
k:=k+1;
s:=s+n[i];
end;
writeln (k);
writeln (s);
readln;
end.
Другие вопросы из категории
Сделайте эту работу или напишите формулу по которой узнавать "Определение тарифа" и "Стоимость разговора"
Задание:
Табличные процессоры
1. Создайте точно такой же документ, как представлен на рисунке
2. Выполните необходимые расчеты. Для столбца "Определение тарифа" используйте функцию Если и абсолютные ссылки.
3. После выполнения всех расчетов постройте сводную таблицу отражающую общую стоимость переговоров по зонам (Строки) и Видам тарифов (Столбцы)
4. По данным сводной таблицы постройте диаграмму, показывающую долю стоимости переговоров по каждой зоне.
программу замены положительных элементов вещественного массива Y[1..N] на
0. (ПАСКАЛЬ-Массивы)
Читайте также
Вывести на экран массив в виде таблицы и сумму элементов массива.
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
стоящих на четных местах. Вывести на экран эти элементы и их произведение.
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=30;
var a: array [l..N] of integer;
i,j,s: integer;
begin
for i:=l to N do readln(a[i]);
...
end.