Лабораторная работа: Обработка одномерных массивов и матриц

ЛАБОРАТОРНАЯ РАБОТА 5

Цель работы : изучение и применение методов программирования действий по обработке одномерных массивов и матриц.

Задача 1

Массив из 30 целых чисел заполнить, присваивая элементам, делящимся на 4, значения 0, остальным элементам значение -1. Cоставить три варианта программы с использованием различных операторов организации циклов.

Вариант 1. Использование оператора For

Текст программы

program lab5_1_1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

m:array [1..30] of integer;

i:byte;

begin

for i:=1 to 30 do begin

if i mod 4 =0 then m[i]:=0

else m[i]:=-1;

writeln(m[i]);

end;

readln;

end.

Вывод результата

Вариант 2. Использование оператора While

Текст программы

program lab5_1_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--