Вторник, 20.11.2018, 23:20
Приветствую Вас Гость | RSS

Сайт учителя информатики Швец Елены Петровны

Наш опрос
Как вы используете Интернет для подготовки к урокам?
Всего ответов: 9
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сетевой этикет

Преобразование элементов массива

Задания на компьютере

Задание 1. Массив a[1..20] заполняется случайными числами в диапазоне [2,15]. Вывести элементы массива на экран

а) Уменьшить элементы массива на 4 и вывести полученный массив на экран

program z1_1;

var a:array[1..20] of integer;

i:integer;

Begin

 for i:=1 to 20 do a[i]:=random(14)+2;

 for i:=1 to 20 do write(a[i],'  ');

 writeln;

 for i:=1 to 20 do a[i]:=a[i]-4;

 for i:=1 to 20 do write(a[i], '  ');

 writeln;

 End.

б) Увеличить элементы массива на их индекс и вывести элементы массива на экран

Задание 2. Массив a[1..11] заполняется случайными числами в диапазоне [-3,5]. Вывести элементы массива на экран

а) Изменить отрицательные элементы массива на 7 и вывести полученный массив на экран

program z2_1;

var a:array[1..11] of integer;

i:integer;

Begin

 for i:=1 to 11 do a[i]:=random(   )-   ;

 for i:=1 to 11 do write(a[i], '   ');

 writeln;

 for i:=1 to 11 do if a[i]<0 then a[i]:=7;

 for i:=1 to 11 do write(a[i], '   ');

 writeln;

 

 End.

б) Изменить чётные элементы массива на 8 и вывести элементы массива на экран

Задание 3. Массив a[1..10] вводится с клавиатуры.  Вывести элементы массива на экран.

 а) Переставить второй и пятый элементы массива и вывести полученный массив на экран

program z3_1;

var a:array[1..10] of integer;

i,x:integer;

Begin

 for i:=1 to 10 do readln(a[i]);

 for i:=1 to 10 do write(a[i], '  ');writeln;

 x:=a[2];

 a[2]:=a[5];

 a[5]:=x;

 for i:=1 to 10 do write(a[i], '  '); writeln;

 

 End.

б) Переставить четвёртый и пятый элементы массива и вывести полученный массив на экран.

Задание 4. Массив a[1..10] вводится с клавиатуры.  Вывести элементы массива на экран. 

а) поменять местами первый с последним, второй с предпоследним и т.д. Вывести полученный массив на экран

program z4;

var a:array[1..10] of integer;

i,x:integer;

Begin

 for i:=1 to 10 do readln (a[i]);

 for i:=1 to 10 do write(a[i], '  ');  writeln;

for i:=1 to 5 do

 begin

 x:=a[i];

 a[i]:=a[11-i];

 a[11-i]:=x;

 end;

 for i:=1 to 10 do write(a[i], '  '); writeln;

 

End.

б) поменять местами соседние элементы и вывести полученный массив на экран

Вход на сайт
Поиск
Календарь
«  Ноябрь 2018  »
ПнВтСрЧтПтСбВс
   1234
567891011
12131415161718
19202122232425
2627282930
Часы

Погода
Яндекс.Погода

Copyright MyCorp © 2018
uCoz