Использование различных программных команд

Министерство науки и образования  РФ

Новосибирский Государственный Технический  Университет

 

Отчет о лабораторной работе №5

По информатике

 

 

Тема:

Выполнил:

Студент: Язовских Максим Андреевич

Группа: ЭМА-22

Руководитель: Родыгин Александр  Владимирович

Работа выполнена: ____________________________________________________________________

 

 

 

Руководитель:_____________________

(подпись)  

 

 

 

 

 

 

 

 

Новосибирск — 2013

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

 

 

 

 

 

 

 

 

 

 

 

 

 

program lab5;

uses wincrt;

var

n,I,j:integer;

C:array[1..100] of real;

begin

write('n=');

readln(n);

for i:=1 to n do

begin

write('C',i,'=');

readln(C[i]);

end;

for i:=1 to n do

if C[i]<0 then

j=j+1;

write('Количество отрицательных элементов = ',s);

end.