Const n=7; type V=array[1..n] of real; procedure mReplace(t:real;var a:V;var k:integer); var i:integer; begin k:=0; for i:=1 to n do if a[i]<t then begin a[i]:=t; Inc(k) end end;
var T:real; i,k1,k2:integer; P,C:V; begin Write('Введите значение T: '); Read(T); Writeln('Введите элементы массива P'); for i:=1 to n do Read(P[i]); Writeln('Введите элементы массива C'); for i:=1 to n do Read(C[i]); mReplace(T,P,k1); mReplace(T,C,k2); if k1>k2 then begin Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ') end else if k2>k1 then begin Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ') end else Writeln('Число замен в массивах равно ',k1) end.
Тестовое решение: Введите значение T: 0.005 Введите элементы массива P 0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47 Введите элементы массива C -5.74 0.0001 4.1 7.24 -1.5 2.9 0.004 Измененнный массив Р 0.005 1.54 0.005 0.005 0.005 1.2 0.005
Память человечества, в отличие от памяти отдельного человека, содержит все знания, которые накопили люди за время своего существования и которыми могут воспользоваться ныне живущие люди. Эти знания представлены в книгах, запечатлены в живописных полотнах, скульптурах и архитектурных произведениях великих мастеров.
Изобретённая в 1839 году фотография позволила сохранить для потомков лица людей, пейзажи, явления природы и другие зримые свидетельства времён.
Человек научился хранить и звуковую информацию. Вначале её сохранение обеспечивалось передачей «из уст в уста» (например, напевами), позднее — с записи нот. В 1877 году был создан первый прибор для записи и воспроизведения звука — фонограф.
В 1895 году в Париже был продемонстрирован первый в мире кинофильм. С той поры человечество получило возможность сохранять образы, воплощённые в движении (танец, жесты, пантомима и пр.).
Современный компьютер может хранить в своей памяти различные виды информации: текстовую, графическую, числовую, звуковую и видеоинформацию.
Объяснение:
если у вас дис.обучение скачайте себе прогаму IWRITER (текст, почерк) там просто вставте любой текст и оно его сделает как надпись на тетради
n=7;
type
V=array[1..n] of real;
procedure mReplace(t:real;var a:V;var k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<t then begin a[i]:=t; Inc(k) end
end;
var
T:real;
i,k1,k2:integer;
P,C:V;
begin
Write('Введите значение T: '); Read(T);
Writeln('Введите элементы массива P');
for i:=1 to n do Read(P[i]);
Writeln('Введите элементы массива C');
for i:=1 to n do Read(C[i]);
mReplace(T,P,k1); mReplace(T,C,k2);
if k1>k2 then
begin
Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')
end
else
if k2>k1 then
begin
Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')
end
else Writeln('Число замен в массивах равно ',k1)
end.
Тестовое решение:
Введите значение T: 0.005
Введите элементы массива P
0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47
Введите элементы массива C
-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004
Измененнный массив Р
0.005 1.54 0.005 0.005 0.005 1.2 0.005
Память человечества, в отличие от памяти отдельного человека, содержит все знания, которые накопили люди за время своего существования и которыми могут воспользоваться ныне живущие люди. Эти знания представлены в книгах, запечатлены в живописных полотнах, скульптурах и архитектурных произведениях великих мастеров.
Изобретённая в 1839 году фотография позволила сохранить для потомков лица людей, пейзажи, явления природы и другие зримые свидетельства времён.
Человек научился хранить и звуковую информацию. Вначале её сохранение обеспечивалось передачей «из уст в уста» (например, напевами), позднее — с записи нот. В 1877 году был создан первый прибор для записи и воспроизведения звука — фонограф.
В 1895 году в Париже был продемонстрирован первый в мире кинофильм. С той поры человечество получило возможность сохранять образы, воплощённые в движении (танец, жесты, пантомима и пр.).
Современный компьютер может хранить в своей памяти различные виды информации: текстовую, графическую, числовую, звуковую и видеоинформацию.
Объяснение:
если у вас дис.обучение скачайте себе прогаму IWRITER (текст, почерк) там просто вставте любой текст и оно его сделает как надпись на тетради