var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.
Многие производители программного обеспечения хотят ра свои программы бесплатно, имея свои цели и свою выгоду в таком Другие готовы поделиться с миром своими наработками, но не готовы "возиться" с организацией процеса продаж, и поэтому тоже раздают свои программы бесплатно. Например, к свободно распространяемым программам относятся:
- бета версии программ или игр (то есть новые, ещё недоработанные - это позволяет провести их широкое тестирование);
- программные продукты, являющиеся частью принципиально новых технологий (это позволяет завоевать рынок);
- дополнения к ранее выпущенным программам, позволяющие исправить найденные ошибки или расширить возможности (пользователь уже раньше заплатил за первоначальную версию продукта, и в том числе получил право на бесплатные обновления)
- драйверы к новым или улучшенные драйверы к уже существующим устройствам.