Одномерный массив

[Greschnik]

Даны последовательности чисел x1, ..., xm и y1, ..., yn, натуральные числа m и n, целые a, b, c. Вычислить сумму и распечатать: (на картинке) помогите,пожалуйста.

[Serge_Bliznykov]

тоже мне, "бином Ньютона"!

// ввод X от 1 до m
// ввод Y от 1 до n
// ввод a,b,c

// вычисление суммы
s:=0.0;
for i:=1 to m do
  for k:=1 to n do
      s := s + Power( a*x[i] + b*y[k] + c, 1/3);

Внимание. функция возведения Power определена далеко не во всех версиях Паскаля. У Вас какой именно компилятор Паскаля?

[Greschnik]

PascalABC )
Помогите исправить программу!)

Program z1;
uses crt;
var s,k,i:boolean;
begin
clrscr;
s:=0
for i:=1 to m do
for k:=1 to n do
 s := s + Power( a*x[i] + b*y[k] + c, 1/3);
begin
writeln(.........);
end;
readln
end.

[Serge_Bliznykov]

ну давайте начнём с
1) Вы забыли описать переменные.
Запомните, что все переменные, которые Вы используете в тексте программы на Паскаль, должны быть описаны (объявлены) с помощью блока var
где у Вас описание переменных массивов x,y
и переменных a,b,c
и переменных m n
??!!!

2) переменные, которые используются в качестве счётчиков, должны быть ЦЕЛОЧИСЛЕННЫЕ (целого типа), а не логического, как у Вас
А переменная для накопления суммы s вообще должна быть вещественного типа (real, например)

3) я написал Вам в комментариях, что исходные значения нужно вводить.
Вы это проигнорировали. Так не пойдёт. Нужно ВВОДИТЬ начальные значения для используемых переменных.

ну, пока всё...

[Greschnik]

Program z2;
uses crt;
var k,i,a,b,c,x,y,m,n:integer;
s:real;
begin
clrscr;
writeln ('Введите натуральные числа m и n');
readln (m,n);
for x:=1 to m do
for y:=1 to n do
writeln ('Введите целые числа a,b,c');
readln(a,b,c);
writeln ('Вычислить сумму');
readln(s);
s:=0.0;
for i:=1 to m do
for k:=1 to n do
begin
s := s + Power( a*x[i] + b*y[k] + c, 1/3);
writeln('Значение суммы равно:',s);  
end;
readln
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Program z1;
var k,i,m,n:integer;
var a,b,c:integer;
var x: array[1..7] of integer;
var y: array[1..5] of integer;
var s:real;
begin
for i:=1 to 7 do x[i]:=random(10);
for i:=1 to 5 do y[i]:=random(20);
m:=5;n:=6;
a:=2;b:=4;c:=4;
s:=0;
for i:=1 to 7 do 
for k:=1 to 5 do 
s:=s+Power( a*x[i]+ b*y[k]+ c, 1/3);
writeln('s=',s);
end.

[Serge_Bliznykov]

хорошо. второй вариант - вполне рабочий.

я бы рекомендовал небольшие косметические правки.
вот так:

Program z1;
const
  m = 7;
  n = 5;
var k,i:integer;
  a,b,c:integer;
  x: array[1..m] of integer;
  y: array[1..n] of integer;
  s:real;
begin
  for i:=1 to m do x[i]:=random(10);
  for i:=1 to n do y[i]:=random(20);
  a:=2;
  b:=4;
  c:=4;
  s:=0;
  for i:=1 to m do
    for k:=1 to n do
      s:=s+Power( a*x[i]+ b*y[k]+ c, 1/3);
  writeln('s=',s);
end.