Тема: «Обработка элементов одномерного массива» :01:53

Program PR1; Uses crt; Type massiv=Arrey[1..50] of Real; Var a: massiv; I,n,к: integer; Begin к:=0; Writeln( введи размер массива n); Read(n); Writeln( исходный массив); Randomize; For I:=1 to n do begin a[ I ] :=random( )+2; {Количество двузначных элементов } IF (a[ I ] >=10) and (a[ I ]

Обмен содержимого двух элементов массива z:= a[i]; a[i]:=a[i+1]; a[i+1]:=z;

Задача 1 Создать одномерный массив из 10 элементов, где элементы массива - целые случайные числа в пределах 2 до 50. Переставить элементы, стоящие на нечётных местах, с соответствующими элементами стоящими на чётных местах в массиве.

Program PR2; Const n=10; Type mass= array[1..n] of integer; Var i, z: integer; a: mass; Begin Writeln( Исходный массив); Randomize; For i:=1 to n do begin a[ i ]:= Round(Random(50-2+1)+2); Writeln(a[, i, ]=,a[ i ] ); end; writeln; Writeln( Изменённый массив); z:=0; i:=1; Repeat z:= a[i]; a[i]:=a[i+1]; a[i+1]:=z; inc(i,2); until i>n-1; For i:=1 to n do Writeln(a[, i, ]=,a[ i ] ); End.

Домашнее задание Задача Пусть a[1],..., a[n] - целые числа. Требуется найти сумму отрицательных и сумму неотрицательных элементов массива.

Решение задач 1 вариант Пусть a[1],..., a[n] - целые числа. Требуется перемножить положительные числа массива а[1],..., а[n], а отрицательные увеличить на 2. 2 вариант Пусть a[1],..., a[n] - вещественные числа. Найти количество отрицательных, а неотрицательные увеличить в 3 раза.