Uses crt; const n=15; var a: array[1..n] of integer; i,j,k,t: integer; found: boolean; begin clrscr; randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(90)+1; write(a[i],' ') end; writeln; i: =n; found: =false; repeat found: =(a[i] mod 2=0); if (not found) then dec(i) until found or (i=0); if found then begin for i: =i to n-1 do a[i]: =a[i+1]; writeln('результирующий массив: '); for i: =1 to n-1 do write(a[i],' ') end; readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47
Спасибо
Ответ дал: Гость
microsoft visual basic 2010(более ранние тоже прокатят)
dim i as single private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load i = val(inputbox("введите число")) if i > = 0 then i = i - 50 else i = i + 100 end if msgbox(i) end sub
просто на basic
dim i as single
input(i)
if i > = 0 then i = i - 50 else i = i + 100 end if
Популярные вопросы