1 год назад

Паскаль. помогите пожалуйста. 40 баллов

1 ответ:

0 0

Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.

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

Задачами управления являются: Право собственности. Организация системы — полное, качественное выделение подсистем, описание их в

Danil1998

Ответ:

2 и 3 вариант верные

Объяснение:

Поставь лучший ответ пожалуйста $\pi \pi$

0 0

4 года назад

"В ячкейке G4 электроннной таблицы записана формула=D$22*$D23.Какой вид приобретет формула, после того как ячейку G4 скопируют в

jelenavilde

=C$22*$D22

D$22 -полуабсолютнаяссылка. После копирования буква столбца сместится влево (D-C)
$D23 - полуабсолютнаяссылка. После копирования цифра строки сместится вверх (23-22)

0 0

4 года назад

Кто знает паскаль, можете сделать задачу: y=x*2x

tigrusik123

(x вводится пользователем)
var x,y:real;
begin
writeln ('Введите переменную x, y=x*2x');
readln (x);
y:=x*2*x;
writeln ('y = ',y);
end.

0 0

4 года назад

Подробно желательно Для кодирования некоторой последовательности состоящей из букв А, Б, В, и Г, решили использовать неравномерн

Alina1

Раз у нас Б - 1 , значит не допускается чтобы на первом месте была 1.
Г не может быть 00 и 01 тоже значит минимальное 001
Ответь: Г - 001

0 0

3 года назад

Помогите пожалуйста очень прошу))Задан двухмерный массив целых чисел А размером N на М, состоящий из отрицательных и положительн

ChilPol [69]

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(x->x[2]<0);
Writeln(s.Count,' отрицательных элементов с суммой ',s.Select(x->x[2]).Sum);
Writeln('*** Результирующий массив ***');
foreach var ijV in s do a[ijV[0],ijV[1]]:=0;
a.Println(4)
end.

Пример
Количество строк в массиве: 4
Количество колонок в массиве: 7
*** Исходный массив [4,7] ***
97 -4 -24 49 1 86 -15
-84 -17 -56 -76 -26 -77 49
-8 48 -29 60 20 82 90
-28 -4 -69 32 -63 -35 -72
----------------------------
17 отрицательных элементов с суммой -687
*** Результирующий массив ***
97 0 0 49 1 86 0
 0 0 0 0 0 0 49
 0 48 0 60 20 82 90
 0 0 0 32 0 0 0

0 0

4 года назад