uses crt;
var a:array [1..10] of integer;
i,n,k,s,max:integer;
begin
clrscr;
randomize;
s:=0;
writeln ('massiv a');
n:=10;
for i:=1 to n do begin
a:=random (200)-100;
write(a,' ');
end;
max:=a;
for i:=1 to n do begin
if a>max then max:=a;
end;
writeln('');
writeln('Max. element=',max);
for i:=1 to n do begin
if a>55 then
a:=max;
end;
writeln('');
writeln('preobraz. massiv A');
for i:=1 to n do begin;
write(a,' ');
end;
readkey;
end.
массив
задайте массив из 10 элементов с помощью randomize. все элементы которые больше 55 замените максимальным.выведите на экран исходный и измененный массив.
задачу решила так:
uses crt;
var a:array [1..10 of integer;
i,n,k,s,max:integer;
begin
clrscr;
randomize;
s:=o;
writeln ('massiv a');
n:=10;
for i:=1 to n do begin
a:=random (200)-100;
writeln(a)end;
max:=a;
for i:=1 to n do if a>max then max:=a;
fir i:=1 to n do begin
if a>55 then writeln(a=max);
end;
for i:=1 to n do writeln (a);
readkey;end.
программа не работает.она включается, но условие не выполняется.что не так?
задачу решила так:
uses crt;
var a:array [1..10 of integer;
i,n,k,s,max:integer;
begin
clrscr;
randomize;
s:=o;
writeln ('massiv a');
n:=10;
for i:=1 to n do begin
a:=random (200)-100;
writeln(a)end;
max:=a;
for i:=1 to n do if a>max then max:=a;
fir i:=1 to n do begin
if a>55 then writeln(a=max);
end;
for i:=1 to n do writeln (a);
readkey;end.
программа не работает.она включается, но условие не выполняется.что не так?
условие выполняется,writeln(a=max); не изменяет массив.и max:=a; лучше поменять на max:=a[i-1],чтобы выхода за массив не было.
Цитата: nastyanan
задайте массив из 10 элементов с помощью randomize. все элементы которые больше 55 замените максимальным.выведите на экран исходный и измененный массив.
задачу решила так:
uses crt;
[COLOR="Red"]var a:array [1..10 of integer;[/COLOR]
i,n,k,s,max:integer;
begin
clrscr;
randomize;
[COLOR="Red"]s:=o;[/COLOR]
writeln ('massiv a');
n:=10;
for i:=1 to n do begin
a:=random (200)-100;
[COLOR="Red"]writeln(a)end;[/COLOR]
max:=a;
[COLOR="Red"]for i:=1 to n do if a>max then max:=a;[/COLOR]
[COLOR="Red"]fir i:=1 to n do begin[/COLOR]
[COLOR="Red"]if a>55 then writeln(a=max);[/COLOR]
end;
for i:=1 to n do writeln (a);
readkey;end.
программа не работает.она включается, но условие не выполняется.что не так?
задачу решила так:
uses crt;
[COLOR="Red"]var a:array [1..10 of integer;[/COLOR]
i,n,k,s,max:integer;
begin
clrscr;
randomize;
[COLOR="Red"]s:=o;[/COLOR]
writeln ('massiv a');
n:=10;
for i:=1 to n do begin
a:=random (200)-100;
[COLOR="Red"]writeln(a)end;[/COLOR]
max:=a;
[COLOR="Red"]for i:=1 to n do if a>max then max:=a;[/COLOR]
[COLOR="Red"]fir i:=1 to n do begin[/COLOR]
[COLOR="Red"]if a>55 then writeln(a=max);[/COLOR]
end;
for i:=1 to n do writeln (a);
readkey;end.
программа не работает.она включается, но условие не выполняется.что не так?
вот, при беглом просмотре, меня смутили выделенные места:)
P.S. как вы вообще смогли её скомпилить?:)
я думаю так будет лучше:
Код: