Информацию<span>, </span>представленную в форме<span>, </span>пригодной для хранения<span>, </span>передачи и обработки компьютером<span>, называют данными. </span>
<span><span>Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write('Введите кол-во элементов не более 50: ');
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin
x[i]:=10*Random;
If Odd(i) Then
s:=s+x[i];
Write(x[i]:7:2);
end;
Writeln;
Writeln('Сумма элементов с нечетными индексами = ',s:0:2);
END.</span></span>
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.