Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
1

Массивы. Что выведут приведенные программы на экран?

26.12.2013, 22:32. Просмотров 344. Ответов 1
Метки нет (Все метки)

1) Что выведут программы на экран?
a)
Pascal
1
2
3
4
5
6
7
var a: array[1..10] of integer;
i: integer;
begin
a[1]:=1;
for i:=2 to 10 do a[i]:=a[i-1]+1;
for i:=1 to 10 do write (a[i]:3);
end.
b)
Pascal
1
2
3
4
5
6
7
var a: array[1..5,1..5] of integer;
i,j,k: integer;
begin
k:=1;
for i:=1 to 5 do for j:=1 to 5 do begin a[i,j]:=k; k:=k+1;end;
for i:=1 to 5 do begin for j:=1 to 5 do write (a[i,j]:3);writeln;end;
end.
2)Написать программу, которая заменяет все элементы, кратные 13 на минимальный элемент в массиве.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 22:32
Ответы с готовыми решениями:

Что будет выведено на экран в результате работы этой программы?
Что будет выведено на экран в результате работы программы?Объясните эту задачу....

Что будет выведено на экран в результате исполнения фрагмента программы?
Что будет выведено на экран в результате исполнения фрагмента программы а:='Э',...

Что будет выведено на экран, после выполнения данной программы:
Что будет выведено на экран, после выполнения данной программы: 1) a=8, n=5...

Матрица и циклы: Что будет выведено на экран, в результате выполнения программы?
Здравствуйте. Подскажите, пожвлуйста, мне в чем я не прав. Задание заключается...

Что будет выведено на экран после выполнения данного фрагмента программы?
Что будет выведено на экран после выполнения данного фрагмента программы?<br>...

1
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
27.12.2013, 08:28 2
1)А самому в Паскаль скопировать код и посмотреть что будет - руки не могут?

2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const
  maxN = 100;
 
var
  mas: array[1..maxN] of integer;
  n, i, min: integer;
 
begin
  readln(n);
  for i := 1 to n do
  begin
    mas[i] := random(99) + 1;
    write(mas[i]:5);
  end;
  min := mas[1];
  for i := 2 to n do
    if(min > mas[i]) then
      min := mas[i];
  for i := 1 to n do
    if(mas [i] mod 13 = 0) then
      mas[i] := min;
  writeln;
  for i := 1 to n do
    write(mas[i]:5);
end.
3)Внимательно читаем правила форума.
4)Очень внимательно
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2013, 08:28

Олимпиада по информатике: Что выводит на экран фрагмент программы, приведенный ниже?
Что выводит на экран фрагмент программы, приведенный ниже? for i:=1 to N do...

Что будет выведено на экран после исполнения данного фрагмента Паскаль-программы?
Что будет выведено на экран после исполнения данного фрагмента...

Запишите то, что будет выведено на экран после исполнения данного фрагмента Паскаль-программы?
Баллов: 2 Запишите то, что будет выведено на экран после исполнения данного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru