Задачи по массивам (Turbo Pascal)

[Namolem]

а что непонятно?

[Infinity-91]

Не получается задача, напиши пожалуйста, само суммирование, возможно я в чем то ошибаюсь или не так считаю

[VovanZ]

2Infinity-91

var
i:=integer;
a, b, c, d : array[1..10] of integer;
begin
{здесь должен быть ввод данных}
for i:=1 to 10 do d[i]:=a[i]+b[i]+c[i];
{здесь должен быть вывод данных}
end.

[Infinity-91]

Спасибо большое

проверьте пожалуйста задачу:

Дан двумерный массив 10х10 содержащий целые числа, вывести на дисплей сумму четных чисел этого массива.

program Sum;
uses Crt;
const N = 2;
var 
M : array[1..N, 1..N] of integer;
I, J, Sum : integer;
Begin
Sum := 0;
Randomize;
ClrScr;
for I := 1 to N do
begin
WriteLn;
for J := 1 to N do
begin
M[I, J] := Round(random * 100);
Write(M[I, J]:5);
end
end;
WriteLn;
for I := 1 to N do
for J := 1 to N do
if not (M[i, J]) then Sum := Sum + M[I, J];
Write('Сумма четных чисел равна: ', Sum);
Readln; 
End.

не проходит((

[p51x]

" not (M[i, J])" - это проверка на четность???

[Infinity-91]

ага, проверка на четность ошибку как раз в этой строке показывает

[FCShadow]

2 Infinity-91
not это же отрицание... Четные числа вычисляются процедурой mod 2 =0
Короче как-то так:

for I := 1 to N do
for J := 1 to N do
if (M[i, J] mod 2=0) then Sum := Sum + M[I, J];
Write('Сумма четных чисел равна: ', Sum);

Сообщение от Monika_raven

помогите пожалуйста с двумя задачами по массивам...
1. переписать положительные элементы массива Х(N) (N<=50) подряд в массив С. массив С распечатать
2. задан массив х(N) (N>=90) переписать отрицательные элементы массива х последовательно в массив у, а положительные элементы массива - в массив z (нулевые элементы не рассматривать). Отпечатать сформированные массивы у и z
Помогите пожулайста.. буду очень признательна

Я напишу без заполнения массива.

Program test;
Var x,c:array[1..50] of integer;
i,l:integer;
Begin
{заполнение массива здесь}
For i:=1 to 50 do
begin
If x[i]>0 then 
begin
l:=l+1;
c[l]:=x[i];
end;
end;
For i:=1 to 50 do
begin
Write(c[i],' ');
end;
Readln;
end.

[medvedko]

Добрый день. У меня такая проблема с Паскалем.
x^4+1.5*x^3-2*x^2+4*cos(2*x)*sin(4*x) на промежутке [-1;1] с шагом в 0.2.
Пожалуйста, скажите в чём моя ошибка. А то в классе не получается и дали домой.

program Homework;
var x,y:real;
begin
x:=-1;
for x:=-1 to 1 do
begin
y:=x*x*x*x+1.5*x*x*x-2*x*x+4*cos(2*x)*sin(4*x);
writeln('x=', x:10:2);
writeln('y=', y:10:2);
x:=x+0.2
end
end.

Скачал FreePascal, написал это код и выбило несколько ошибок
Error: Ordinal expression expected
Error: Illegal assignment to for-loop variable "x"
Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted

[plax]

Дана матрица А с 2 столбцами и 10 строками. Каждая строка задает параметры кольца: 1-й элемент строки - внутренний радиус; 2-й элемент - внешний радиус кольца. В цикле осуществить проверку возможности последовательного вложения колец в порядке их задания строками матрицы, начиная с 1-й строки. Печатать по ходу проверки внешние радиусы колец, заканчивая цикл, если внешний радиус очередного кольца оказался больше внутреннего радиуса предыдущего (вложение оказалось невозможным). Написать паскаль-программу. спасибо!!

[medvedko]

Тут что никто не может сказать ошибку в коде для уравнения? Великие программисты даже не знают, где у меня ошибка. Помощь прям афигенная.