найти сумму элементов вещественного массива В размерностью 10элементов,значение элементов вводятся с экрана?
10-11 класс
|
var B: array [1..10] of real;
s:real;
i: integer;
begin
s:=0;
for i:=1 to 10 do begin
readln(b[i]);
s:=s+b[i];
end;
writeln(s);
end.
program m;
uses crt;
var a,b,c,d,e,f,g,h,i,k,s:integer;
begin
S:=0;
writeln(a,b,c,d,e,f,g,h,i,k);
readln(a,b,c,d,e,f,g,h,i,k);
S:=a+b+c+d+e+f+g+h+i+k;
readln(S);
writeln('s',=s);
end.
Другие вопросы из категории
года на планетах (длина орбит/скорость). Результаты должны иметь вид:
Продолжительность года на планете <имя1> суток;
Продолжительность года на планете <имя2> суток;
Помогите составить программу в Pascal.
условии, что каждый символ кодируется двумя байтами? Результат представьте целым числом. ( Служебной информацией пренебречь)
будем называть словами. подсчитать количество букв a в последнем слове данной последовательности
В TPascal
Читайте также
Вывести на экран массив в виде таблицы и сумму элементов массива.
первого положительного и кончая вторым положительным элементом.
1.Вычислить значение факториала n! (P=1*2*...*n*N)..N=12
2.Найти сумму элементов заданного массива C[1..n]. Данные для ввода: n=7; C[1;2;3;-4;5;-6;7].
3.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.