Нарисовать картинку в delphi по пикселям (с canvas простую картинку (машинку, смайлик и т. нужен сам код! !

ответ:

вообщем

объяснение:

кароче заходишь в нет и ищешь сам, я так сто раз делал

Первая. program one;   var i: byte; a: integer;     begin    a: =1;       for i: =1 to 15 do begin        a: =a+a;       end;       write(a);       end. третья. program three;   var p: real; i: real; a: real;   begin  p: =1;   i: =1/5;     while i< =2+4/5 do begin    p: =p*i;     i: =i+1/5;     write(p, ' ');     end;     write(p);     end. во второй промежуточное не понял, напишите без многоточия.

Var a: array[1..10] of real; i,na: integer; max: real; begin repeat           writeln('введите количество элементов массива меньше 11');           readln(na); until (na> 0) and(na< =10); writeln('введите элементы массива,',na,' штук'); for i: =1 to na do       begin       readln(a[i]);       if i=1 then max: =a[i]       else       if (a[i]> max) then max: =a[i];       end; writeln('наибольший элемент массива = ',max); end.