В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0
Ответ:
Компьютер
Объяснение:
К "О" - "М" и получаем КОМ
П[У]Т[Ь] - заменяем У на ЬЮ, Ь выбрасываем и получаем ПЬЮ
{С]ЕР[ДЦЕ] - выбрасываем то что в скобках и остается ЕР
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
1.Мощность - 52, значит 5 символв для кодирования 1 символа не хватит, т.к 2^5<52, а вот 2^6=64>52, значчит нам как раз подходит (то что больше это не важно главное чтоб хватало, и меньше не было) значит 1 сивол занимает 6 бит информации, значит 3000 сиволов занимают 3000*6 бит информации, = 18000 бит /8 = 2 250 байт. это чуть больше 2 Кбайт.
2. 256 = 2^8, значит 1 символ содержит 8 бит информации. 1 Мбайт = 2^23 бит, значит 2^23/2^5=2^17 бит. Значит символов у нас 2^17/2^3= 2^14, это 16 384 символа.
ПРости забыл обозначения) поэтому только так
Var
a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a[i]);
<span>End.</span>