С! составьте программу для нахождения суммы и количество положительных элементов массива,заполненного случайными числами интервала [-20,10]. с информатикой.
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР массив: РЯД 100 ИЗ ЦЕЛ; сч, сум, кол: ЦЕЛ;
УКАЗ ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) - 20 КОН; сум := 0; кол := 0; ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП ЕСЛИ массив[сч] > 0 ТО УВЕЛИЧИТЬ(кол); УВЕЛИЧИТЬ(сум, массив[сч]) КОН КОН
1) uses crt; const n=8; var i:integer; a:array[1..n] of integer; begin writeln('Input elements.'); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]<0 then write(a[i],' '); end. 2) uses crt; const n=10; var i,t:integer; a:array[1..n] of integer; begin randomize; t:=0; write('Массив: '); for i:=1 to n do begin a[i]:=random(10,1); write(a[i],' '); if a[i] mod 2=0 then t:=t+1; end; writeln(#13#10,t); end. 3) uses crt; const n=10; var i,sum,t:integer; a:array[1..n] of integer; begin randomize; sum:=0; t:=0; write('Массив: '); for i:=1 to n do begin a[i]:=random(10,1); write(a[i],' '); if a[i] mod 2=0 then sum:=sum+a[i] else t:=t+1; end; writeln(#13#10,sum,' ',t); end. 4) uses crt; const n=10; var i:integer; a:array[1..n] of integer; begin randomize; for i:=1 to n do begin a[i]:=random(10,1); write(a[i],' '); if a[i] mod 2=0 then a[i]:=2*a[i] else a[i]:=3*a[i]; end; write(#13#10); for i:=1 to n do write(a[i],' '); end.
Массив это можно сказать тоже самое что и переменная , но массив отличается от переменной тем , что если переменная хранит одно значение , то в свою очередь массив хранит несколько значений. Нужно из массива А вытащить значения, сравнить их if (первое значение) > (второго значегия) то выводишь первое значение , иначе выводишь второе значение , блин я в бэйсике 0, на pho пример : <?php $array = array( "a" => "8", "b" => "4" ); If($array["a"] > $array["b"]){ echo array["a"]; else{echo array["b"];} ?>
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
массив: РЯД 100 ИЗ ЦЕЛ;
сч, сум, кол: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) - 20
КОН;
сум := 0; кол := 0;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] > 0 ТО
УВЕЛИЧИТЬ(кол); УВЕЛИЧИТЬ(сум, массив[сч])
КОН
КОН
КОН Задание.