Решить в паскале: в числовом массиве из 10 элементов, заданных случайным образом от -100 до 100: а) удалить первый положительный элемент; б) удалить все отрицательные элементы. решить это в одной (можно и по отдельности, главное, чтобы работала ! жду верного и быстрого ответа)

241

422

Посмотреть ответы 2

Ответы на вопрос:

megamozg40

Информатика

4,5(51 оценок)

1) program gt; var a,b: array[1..100]of integer; n,m,i,q: longint; begin randomize; q: =0; for i: =1 to 10 do begin a[i]: =random(200)-100; if(a[i]> 0)then begin q: =q+1; if(q=1)then a[i]: =400; end; end; for i: =1 to 10 do begin if(a[i]< > 400)then write(a[i],' '); end; end.2)program gt; var a,b: array[1..100]of integer; n,m,i,q: longint; beginrandomize; for i: =1 to 10 dobegina[i]: =random(200)-100; if(a[i]< 0)then begina[i]: =400; end; end; for i: =1 to 10 dobeginif(a[i]< > 400)then write(a[i],' '); end; end.

luizalol

Информатика

4,4(84 оценок)

//pascal var a, b, i, s: integer; begin writeln('введите левую границу диапазона'); readln(a); writeln('введите правую границу диапазона'); readln(b); s : = 0; for i : = a to b do if i mod 2 = 0 then s : = s + i; writeln('сумма четных: ', s); end.