1.Даны два целых числа A и B (A < B ). Найти сумму всех чисел от A до B включительно. 2....

Question

1.Даны два целых числа A и B (A < B ). Найти сумму всех чисел от A до B включительно.
2. Даны два целых числа A и B (A < B, A > 0). Найти произведение всех чисел от A до B включительно.
3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел.
4. Дан массив целых чисел Х. Найти количество отрицательных элементов массива.
5. Дан массив целых чисел Х. Найти максимальный элемент массива.

Comments

язык какой?

---

ассемблер( ужасный язык(((

Answer 1

1.
Program suma;
Var a, b, sum, i:integer;
begin
  read(a);
  read(b);
  for i:=a to b do sum:=sum+i;
  write(sum);
end.
2.
Program multip;
Var a, b, m, i:integer;
begin
  m:=1;
  read(a);
  read(b);
  for i:=a to b do m:=m*i;
  write(m);
end.
3.
Program suma2;
Var a:array [1..5] of integer;
    i, sum:integer;
begin
  for i:=1 to 5 do read(a[i]);
  for i:=1 to 5 do
    sum:=sum + a[i] * a[i];
  write(sum);
end.
4.
Program cnt_nopos;
Var a:array [1..5] of integer;
    i, cnt:integer;
begin
  for i:=1 to 5 do read(a[i]);
  for i:=1 to 5 do
    if a[i] < 0 then Inc(cnt);
  write(cnt);
end.
5.
Var a:array [1..5] of integer;
    i, max:integer;
begin
  for i:=1 to 5 do read(a[i]);
  max:=a[1];
  for i:=1 to 5 do
    if a[i] > max then
      max:=a[i];
     
  write(max);
end.