Помогите решить задачу в паскале.Даны три массива:A = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3},B = {-1.2, 4
Extorned
Type
V = array of real;
function SumPos(a:V): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 0 to Length(a, 0) - 1 do
if a[i] > 0 then s := s + a[i];
Result := s
end;
var
A, B, C: V;
begin
A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
writeln('Сумма положительных элементов массива А ',SumPos(A));
writeln('Сумма положительных элементов массива B ',SumPos(B));
writeln('Сумма положительных элементов массива C ',SumPos(C));
end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2
1. структурность и упорядочивание информации
2. впринцепе да, но это не будет оптимальная модель и тем более удобная в использовании
3. расписание уроков, дневник, классный журнал
4. телепрограмма, всевозможные списки и расписания, меню в ресторане, список покупок и тп
5. вообще правил очень много, нужно правильно структурировать, не плодить копий и тд
6.текст, дата, число, ссылка
тут
немного не понятно о каких конкретно таблицах речь. В СУБД есть такой
тип поля BLOB который принимает двоичные дайные, например файлы, рисунки
и тп. В Excel можно просто вставить рисунок в ячейку любую
7 к типу ООО т.е. пересечение двух типов обьектов
8 вообщем любые списки. данные об учениках, данные об учителях
9 табель, своб успеваемости класса по предметам и тд
11 итоги лучше заполнять не вручную, а настраивать автоматическое заполнение, ведь данные могут меняться.
12 возможно кастрюли и их крышки)
begin
var sum :integer := 2020;
var i :integer := 0;
var counter : integer :=0;
while (i <> sum) do
begin
if (i mod 3 <> 0) and (i mod 5 <> 0) then
counter += 1;
i+=1;
end;
writeln (counter);
end.
//Ответ 1077
<span>Комбинация клавиш ctrl +page down</span>перемещает к следующему изменению
расположения.
Лучший ответ плиз:)
2,6 ГБайт = 2,6*1024 = 2662, 4 МБайт
2662, 4 МБайт = 2662, 4*1024 = 2726297,6 КБайт
2726297,6 КБайт = 2726297,6*1024 = 2791728742,4 Байт
Ответ: 2,6 ГБайт = 2791728742,4 Байт.
