Реферат Редагування та налагодження програм за допомогою Pascal

od 2 = 0 then p: = p * a [i];

writeln (p);

end.

Завдання 4.Дані масив обчислити суму всіх елементів більше 5

program as;

uses crt;

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

i, s, p: integer;

begin clrscr;

for i: = 1 to 5 do a [i]: = random (88);

for i: = 1 to 5 do begin

writeln;

for i: = +1 to +5 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 5 do if a [i]> 5 then p: = p + a [i];

writeln (p);

readln;

end.

Завдання 5.Подщітать кол-во елементів рівних 7

program as;

uses crt;

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

i, s, p: integer;

begin clrscr;

for i: = 1 to 7 do a [i]: = random (88);

for i: = 1 to 7 do begin

writeln;

for i: = 1 to 7 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 7 do if a [i] = 7 then p: = p +1;

writeln (p);

readln;

end.

Завдання 6. Дан масив помножити всі елементи на 20

program as;

uses crt;

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

i, s, p: integer;

begin clrscr;

for i: = 1 to 7 do a [i]: = random (88);

for i: = 1 to 7 do begin

writeln;

for i: = 1 to 7 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 7 do

write (a [i] * 20:3); p> readln;

end.

Завдання 7. Дан масив всі парні елементи замінити на 2, а не парні подвоїти

program as;

uses crt;

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

i, s, p: integer;

begin clrscr;

for i: = 1 to 7 do a [i]: = random (88);

for i: = 1 to 7 do begin

writeln;

for i: = 1 to 7 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 7 do if a [i] mod 2 = 0 then writeln (sqr (a [i]));

for i: = 1 to 7 do if a [i] mod 2 <> 0 then writeln (2 * a [i]);

readln;

end.

Завдання 8. Дан одновимірний масив знайти максимальний елемент

program as;

uses crt;

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

i, max: integer;

begin clrscr;

for i: = 1 to 15 do a [i]: = random (88);

for i: = 1 to 15 do begin

writeln;

for i: = 1 to 15 do write (a [i]: 5);

end;

writeln;

max: = 1;

for i: = 1 to 15 do if a [i]> a [max] then max: = i;

writeln (a [max]); p> readln;

end.

Завдання 9. Дан одновимірний масив знайти min елемент

program as;

uses crt;

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

i, min: integer;

begin clrscr;

for i: = 1 to 15 do a [i]: = random (88);

for i: = 1 to 15 do begin

writeln;

for i: = 1 to 15 do write (a [i]: 5);

end;

writeln;

min: = 1;

for i: = 1 to 15 do if a [i]

writeln (a [min]); p> readln;

end.

Заданіе10. Дан масив скопіювати всі його елементи в інший масив такого ж елемента

program as;

uses crt;

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

I, b: integer;

begin clrscr;

for i: = 1 to 15 do a [i]: = random (88);

for i: = 1 to 15 do begin

writeln;

for i: = 1 to 15 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 15 do a [i]: = b [i];

for i: = 1 to +15 Do write (a [i]),

writeln ('скопіюв');

for i: = 1 to 15 do write (b [i]: 4);

readln;

end.

Заданіе11. Скласти програму обміну першого і третього елем. рядка матриці

program as;

uses crt;

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

I, b, c: integer;

begin clrscr;

for i: = 1 to 15 do a [i]: = random (88);

for i: = 1 to 15 do begin

writeln;

for i: = 1 to +15 Do write (a [i] +5),

end;

writeln;

c: = a [1];

a [1]: = a [3];

a [3]: = c;

for i: = 1 to 15 do write (a [i]: 5);

end.

Заданіе12. Дан 2 мірний масив. Вивести на екран всі елементи другого рядка

program as;

uses crt;

var a: array [1 .. 4,1 .. 4] of integer;

i, j: integer;

begin clrscr;

for i: = 1 to 4 do

for j: = 1 to 4 do a [i, j]: = random (99);

for i: = 1 to 4 do begin

writeln;

for j: = 1 to 4 do write (a [i, j]: 5);

end;

writeln;

writeln;

for j: = 1 to 4 do write (a [2, j]: 3);

end.

Заданіе13. Дан одновимірний масив. Поміняти вміст двох довільних осередк...