1)дан одномерный массив из 15 элементов пересавить их в обртном порядке 2)для линейной вещетвенной таблицы B[1:20] найту сумму всех положитеьных чисел 3)дана вещественная таблица C[1:20]. Заменить все элементы этой таблицы, име...
1)дан одномерный массив из 15 элементов пересавить их в обртном порядке 2)для линейной вещетвенной таблицы B[1:20] найту сумму всех положитеьных чисел 3)дана вещественная таблица C[1:20]. Заменить все элементы этой таблицы, имеющие четные порядковые номера на число 8 4)даны два массива одного размера. Получить третий массив, каждый элемент которго равен минимальному из элементов с одинаковыми номерами в заданных массивах
Гость
Ответ(ы) на вопрос:
Гость1) Program Pr1;
uses crt;
const n=15;
var mas:array[1..n] of integer;
j,i,h,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
k:=0;
for i:=1 to n do write(mas[i]);
for i:=1 to n div 2 do begin
h:=mas[n-k];
mas[n-k]:=mas[i];
mas[i]:=h;
k:=k+1;
end;
writeln;
for i:=1 to n do write(mas[i]);
end. 2) Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of real;
i,k:integer;
Begin
clrscr;
for i:=1 to n do begin
writeln('vvedite ',i,'-oe chislo');
readln(mas[i]);
end;
k:=0;
for i:=1 to n do if mas[i]>0 then k:=k+1;
writeln(k);
end. 3) Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
i,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
for i:=1 to n do if i mod 2=0 then mas[i]:=8;
for i:=1 to n do write(mas[i]);
end. 4) Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
mas2:array[1..n] of integer;
mas3:array[1..n] of integer;
i:integer;
Begin
clrscr;
randomize;
for i:=1 to n do begin
mas[i]:=random(10);
mas2[i]:=random(10);
end;
for i:=1 to n do write(mas[i]);
writeln;
for i:=1 to n do write(mas2[i]);
for i:=1 to n do if mas[i]
Не нашли ответ?
Похожие вопросы