№1
Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные.
№2
Создайте действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.
Полная версия: помогите решить пожалуйста
Показывай, что пробовала... Рассказывай, что не получилось.
Только, пожалуйста, не надо писать роман о тяжкой жизни студентки при злом преподе, который ничего не объясняет, а только ТРЕБУЕТ и ТРЕБУЕТ.
И тему переименуй в соответствии с правилами.
Только, пожалуйста, не надо писать роман о тяжкой жизни студентки при злом преподе, который ничего не объясняет, а только ТРЕБУЕТ и ТРЕБУЕТ.
И тему переименуй в соответствии с правилами.
Первая, кажется, так... 
Program tables;
uses crt;
const a=15;b=30;
var mas:array[1..a] of integer;
mas2:array[1..a] of integer;
mas3:array[1..b] of integer;
x,y,z:integer;
begin
clrscr;
randomize;
y:=1;
z:=1;
for x:=1 to a do
begin
mas[x]:=random(20)+1;
mas2[x]:=random(20)+1;
end;
for x:=1 to b do
begin
if x mod 2 = 0 then begin
mas3[x]:=mas[y];
inc(y);
end
else begin
mas3[x]:=mas2[z];
inc(z);
end;
end;
for x:=1 to b do writeln(mas3[x]);
readln;
end.
Код
Program tables;
uses crt;
const a=15;b=30;
var mas:array[1..a] of integer;
mas2:array[1..a] of integer;
mas3:array[1..b] of integer;
x,y,z:integer;
begin
clrscr;
randomize;
y:=1;
z:=1;
for x:=1 to a do
begin
mas[x]:=random(20)+1;
mas2[x]:=random(20)+1;
end;
for x:=1 to b do
begin
if x mod 2 = 0 then begin
mas3[x]:=mas[y];
inc(y);
end
else begin
mas3[x]:=mas2[z];
inc(z);
end;
end;
for x:=1 to b do writeln(mas3[x]);
readln;
end.
Цитата
№2
for i:=1 to n
for j:=1 to m
if a[i,j] < 0 then
writeln(i,j);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.