Элементы массива

[Ximer]

Помогите пожалуйста. Где в программе ошибка?

Задайте массив из n элементов. Элементы, больше 55, заменить на максимальный. Выведите на экран исходный и получите массив.

uses crt;
var m:integer;
     n,max,i:integer;
 
begin
 clrscr;
 randomize;
 write('Размерность: ');
 readln(n);
 writeln('Исходный массив');
 for i:=1 to n do
 begin
  m[i]:=random(100)+10;
  write(m[i],' ');
 end;
 
 max:=m[1];
 for i:=1 to n do if m[i]>max then max:=m[i];
 
 for i:=1 to n do if m[i]>55 then m[i]:=max;
 writeln('Полученный массив');
 for i:=1 to n do
 begin
  m[i]:=random(100)+10;
  write(m[i],' ');
 end;
 
 readln;
end.

[Sazary]

Во-первых: у вас m - массив, а вы его объявляете как переменную:

var m:integer;

надо:

var m: array[1..100] of integer;

Во-вторых, при выводе полученного массива вы заново генерируете значения.

m[i]:=random(100)+10;

Не увлекайтесь копипастом.


---------------------
ily14.1993, правила не для вас?

[Ximer]

Спасибо!!!

[Sazary]

Сообщение от ily14.1993

вот первая задача можете поправить?

Еще раз: прочитайте правила!
Не пишите в чужих темах. Код заключайте в теги CODE.
Указывайте что работает не так в программе.

Вот:

Uses Crt;
Type Mas=Array [1..10] of real;
Var A:MAS;
M,i:Integer;
S,P:Real;
Begin
ClrScr;
Write('M=');
Readln(M);
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
end;
S:=0;
P := 1;
For i:=1 to 10 do
 begin
 p := p*a[i];
 if p>m then break;
 s:=s+a[i];
 end;
Writeln('summa =',S:5:2);
Readln
END.

[Sazary]

Сообщение от ily14.1993

я создел тему свою помогите!!!!!!!!!

Вот потому, что вы ее так назвали, ее и закрыли.
Если б вы прочитали правила, то таких проблем бы не было.
Зачем вы еще раз привели тот же листинг? Я уже его исправил! Или вы не смотрите, что вам пишут?

[Sazary]

из этого S:5:2?

5 - ширина поля вывода
2 - число знаков после запятой

mod - оператор взятия остатка от деления.
3 mod 5 = 3, потому что 3/5 = 0*5 + 3

А вторую задачу можете написать а то я вообще незнаю что такое матрица щас вот завтра в учебнике по паскалю буду читать

Ну вот прочитаете и напишете. А если воспользуетесь поиском, то найдете готовое решение.

Матрица - прямоугольная таблица данных. Массив массивов.

1 2 3
4 5 6
7 8 9

матрица размерности 3x3.
Объявляется так:

matr : array[1..m,1..n] of integer;

матрица размерности mxn
Обращение к элементу матрицы: matr[i,j]