найти сумму элементов массива х = (3.5; -6.3; 2.1; 0.1; 5.1; -2.1), значения которых меньше 0.25 к данному заданию составить алгоритм и написать
10-11 класс
|
программу на языке Pascal
uses crt;
const
a:array[1..6] of real=(3.5, -6.3, 2.1, 0.1, 5.1, -2.1);
var
i:integer;
sum:real;
begin
for i:=1 to 6 do
if a[i]<0.25 then sum:=sum+a[i];
write(sum);
end.
Это блок-схема
Другие вопросы из категории
3)3daddy
4)add444
процедуру, меняющую значения двух переменных а и b местами.
2.Используя
процедуру обмена значений двух переменных, упорядочьте по возрастанию
переменные a, b, c.
отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a[i]); If (a[i]=0 then inc(c)
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.
Читайте также
Вывести на экран массив в виде таблицы и сумму элементов массива.
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.
вывести сумму элементов массива которые кратны 7 и оканчиваются на 5 .Гарантируется,что в исходном массиве есть хотя бы один такой элемент.
НА ЯЗЫКЕ ПАСКАЛЬ!!!!