Напишите программный код для решения задачи: ввести массив действительных чисел с клавиатуры и вывести его на экран (с цикла for) с указанием номера элемента; размер массива ввести с клавиатуры.
Const n =5; type mas=array[1..n,1..n]of integer; var a,b:mas; i,j,sum:integer; begin randomize; sum:=0; for i:=1 to n do for j:=1 to n do a[i,j]:=Random(30); for i:=1 to n do for j:=1 to n do b[i,j]:=Random(30); writeln('Первый массив:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; writeln; writeln('Второй массив:'); for i:=1 to n do begin for j:=1 to n do write(b[i,j]:4); writeln; end; writeln('Разность двух массивов A-B: '); for i:=1 to n do begin for j:=1 to n do begin sum:=sum+a[i,j]+b[i,j]; write(a[i,j]-b[i,j]:4); end; writeln; end; writeln('Сумма элементов двух массивов: ',sum); end.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы
type
mas=array[1..n,1..n]of integer;
var
a,b:mas;
i,j,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(30);
for i:=1 to n do
for j:=1 to n do
b[i,j]:=Random(30);
writeln('Первый массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
writeln('Второй массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
writeln('Разность двух массивов A-B: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
sum:=sum+a[i,j]+b[i,j];
write(a[i,j]-b[i,j]:4);
end;
writeln;
end;
writeln('Сумма элементов двух массивов: ',sum);
end.