profile
Опубликовано 6 лет назад по предмету Информатика от 1234567890098761

составьте программу для нахождения  минимального элемента массива Х, состоящего из 6 элементов.
пожалуйста)

  1. Ответ
    Ответ дан Veter0k
    var a:array [1..7] of byte; k,c,d:integer;
    begin
    for k:=1 to 6 do begin
    read(c); a[k]:=c; end;
    a[7]:=2*a[1];
    for k:=1 to 6 do 
    if a[k]<a[k+1] then d:=a[k];
    write(d);
    end.


Самые новые вопросы