Вопрос по информатике:
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а принести уже завтра надо(((
1)Заполните случайными числами целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.
2)Дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.Найти наибольшее значение элемента массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.02.2015 00:40
- Информатика
- remove_red_eye 9478
- thumb_up 17
Ответы и объяснения 2
1)
var
a:array[1..10,1..10] of integer;
i,j:integer;
begin
randomize;
for j:=1 to 10 do
for i:=1 to 10 do
a[i,j]:=random(51);
for i:=1 to 10 do
write(a[i,4);
end.
2)
var
n,max,i:integer;
a:array[1..n] of integer;
begin
max:=0;
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>max then max:=a[i];
write(max);
end.
- 13.02.2015 20:29
- thumb_up 10
Согласно правилам сервиса в одном вопросе нельзя задавать больше одного задания, так что я решаю 2.
2)
var a:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n do
readln(a[i]);
max := a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ', max);
end.
- 14.02.2015 18:10
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.