Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
3) Абрам.
Т.к. НЕ обозначает, что первая должна быть гласная, а последняя согласная.
3. "Програмуйте в майбутньому часі" - "підготуйте" вашу програму до змін які можуть мати місце у майбутньому. Іншими словами - коли ви захочете додати функціональності до вашого застосунку, то краще б його не переписувати з самого початку а тільки внести мінімальні зміни які стосуються конкретно нової функціональності. Тому принцип повторного використання і є дуже важливим: застосунок "будується" з будівельних блоків якими і є ці повторно використовувані частинки
В большинстве случаев, скопированный объект может быть неоднократно вставлен. Или точнее сказать - почти всегда.
Но бывают программы которые после вставки очищают буфер обмена.
Так же есть программы, такие как Punto Switcher (которые переводят не правильно набранный, в другой раскладке текст) которые используют тот же буфер обмена (и если у вас в нем был скопирован какой то текст - он просто подменится этой программой).
Ну и последнее: операция "вырезать" вместо скопировать, не сохраняет содержимое в буфере обмена после его вставки, так, что в отличии от копирования, вставкв будет возможна только один раз
Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
<span>b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;</span>