3 года назад

Массив n элементов (random) подсчитать сумму элементов превышающих величину T. Pascal

2 ответа:

Alizaveta3 года назад

0 0

Var a:array[1..1000] of integer;
n,i,T,s:integer;
begin
write('Введите количество элементов массива (n<1000): ');
readln(n);
for i:=1 to n do a[i]:=random(51);
write ('Массив: ');
for i:=1 to n do write(a[i],' ');
writeln;write('Введите величину T: ');
readln(T);
for i:=1 to n do
if a[i]>T then s:=s+a[i];
writeln('Сумма элементов превышающих величину T = ',T,' равна ',s);
readln
end.

Agentreklam3 года назад

0 0

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.

Пример
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159

Читайте также

В вещественном массиве размером 30 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Опиши

Серж12

int main() {
int a[30] = {45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54};
int n=0;
for (int i=0; i<30; i++) {
if ((a[i]>50)&&(a[i]<=57)) {n++;}
}
printf("%d ", n); n - количество спортсменок с нужным весом
}

0 0

4 года назад

Дана геометрическая прогрессия: 2, 6, 18, 54, … Найдите сумму первых n элементов прогрессии, используя оператор repeat.

nazar21

var s,n:integer;
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
end.

0 0

1 год назад

Составить программу на Паскале для получения таблицы умножения в шестнадцатеричной системе счисления с использованием типа перем

Solpadein

Var
A,B:integer;
C,H:Char;
Begin
For B:= 1 to 15 do
Begin
For A:= 1 to 15 do
Begin
   Case (A*B) mod 16 of
   0:H:='0';
   1..9:H:=Chr(((A*B)mod 16)+48);
   10:H:='A';
   11:H:='B';
   12:H:='C';
   13:H:='D';
   14:H:='E';
   15:H:='F';
   End;
   Case (A*B)div 16 of
   0:C:='0';
   1..9:C:=Chr(((A*B)div 16)+48);
   10:C:='A';
   11:C:='B';
   12:C:='C';
   13:C:='D';
   14:C:='E';
   15:C:='F';
   End;
   Write(C+H,' ')
End;
WriteLn
End
End.

0 0

4 года назад

Плюсы и минусы векторных изображений

tornadomoskva

Вот.

О плюсах и минусах суди сам(а).

0 0

3 года назад

Напиши слова в окнах цепочки R в словарном порядке так, чтобы мешок S был мешком слов цепочки R

Bulkaster

RSR

sdsadadassdasdsadsadsadas

0 0

4 года назад