Program n_12;
var a;
begin
write ('введите число');
if (a); a= положит., отрицат., или равное 0
end.
Информационно моделью могут служить изображения фильмов, видео и т.д., знаки (текст например), графические модели ( график чертеж), комбинированные изображения ( карты)
Var i,sum: Integer;
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
гришин-почтальон
алексеев-маляр
иванов-парикмахер
сидоров-мельник
петров-плотник
<em>ВОТ У МЕНЯ ТАК ПОЛУЧИЛОСЬ</em>