Вычисление суммы положительных элементов массива. program massiv6; uses crt; const N=10; type x=array [1..N] of integer; var a:x; i:integer; s:integer; begin clrscr; randomize; for i:=1 to N do begin a[i]:= -100+random(201); write (A[i]:5) end; writeln; s:=0; for i:=1 to N do.
{у = ах2 – b для х изменяющегося от –7 до +12 с шагом +1.Значения а и b ввести с клавиатуры.Решить эту задачу с использованием всехвидов циклов (FOR, WHILE, REPEAT)}var a,b,x,y:integer;beginwriteln('привет,я alconafft');writeln('введи заначения перeменных а и б');writeln('введи значение а');readln(a);writeln('введи значение b');readln(b);writeln('хорошо,теперь протабулируем ф-цию на заданном отрезке,поехали))');for x:=-7 to 12 do//парметрический циклbeginy:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;writeln('цикл с постусловием');x:=-7;repeatinc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);until(x=12);x:=-7;writeln('цикл с предусловием');while x<12 dobegininc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;end.
Вычисление суммы положительных элементов массива. program massiv6; uses crt; const N=10; type x=array [1..N] of integer; var a:x; i:integer; s:integer; begin clrscr; randomize; for i:=1 to N do begin a[i]:= -100+random(201); write (A[i]:5) end; writeln; s:=0; for i:=1 to N do.