3 года назад

Умножить все элементы массива A на 2( Паскаль)

1 ответ:

0 0

Var n:integer;
a:Array[1..100] of integer;
begin
read(n);
for i:1 to N do
begin
a[i]:random(10);
a[i]=a[i]*2;
writeln(a[i]);
end;
end.

Читайте также

Как называется сброс данных в компьютере? 4 буквы. помогите пожалуйста

Potemkinavn

Может быть reset?это сброс .но 5 букв...

0 0

4 года назад

Помогите пожалуйста !прошуу Перед Архимедом в ряд положили 4 одинаковые с виду монеты. Среди них обязательно есть как золотые, т

Vmalikova [1.9K]

Пусть "1" - золотая монета, тогда "0" - серебряная. Из условия задачи следует, что можно составить только две возможные комбинации расположения монет: 0101 и 1010. Тогда Архимеду нужно взвесить две центральные монеты. Если левая окажется тяжелее, тогда получится первая цепочка, т. е. серебряная, золотая, серебряная, золотая, иначе вторая, т.е. золотая, серебряная, золотая, серебряная.

0 0

2 года назад

Имеется дискета емкостью 1,44 Мбайт. Определить максимальное количество файлов черно-белых изображений размером 1280*1024 пиксел

Butkus [14]

1. Для начала, определим ёмкость дискеты в битах.
Это будет $1,44 * 1024 * 1024 * 8$ бит.

2. Если изображение черно-белое, значит 1 пиксель кодируется одним битом (0 - черный, 1 - белый).
Значит, объём одного изображения равен $1280*1024$ бит.

3. Поделим ёмкость дискеты на объём одного изображения и выделим целую часть, это и будет количеством изображений, которые поместятся на дискете:
$\frac{1,44 * 1024 * 1024 * 8}{1280*1024} = 9 \frac{27}{125}$

0 0

4 года назад

Составить таблицу для циклического алгоритма и программу для Паскаль

Frezia [1]

Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.

0 0

4 года назад

1. Создать одномерный массив размером [10] при помощи генератора случайных чисел.2. Подсчитать сумму элементов одномерного масси

denispilat [607]

Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.

0 0

4 года назад