Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
Носителем информации в цифровой камере служат особые карты памяти - точнее, “флэш-памяти”, данные из флэш-памяти не исчезают при отключении питания, они могут быть стерты или записаны только специальным электрическим импульсом.
1. не (123<10) или не (123 четное)
не ложно или не ложно
истина или истина = правда
2. не (56<10) или не (56 четное)
истина или не истина = истина
3. не (9<10) или не (9 четное)
не истина или не лож
лож или истина = истина
4. не (8<10) или не (8 четное)
не истина или не истина
лож или лож = лож
ответ 4
<em>program jfe3;</em>
<em>const n=10; {Это будет кол-во элементов массива}</em>
<em>var a:array [1..n] of integer; i,s:integer;</em>
<em>begin</em>
<em>for i:=1 to n do begin</em>
<em> a[i]:=random(100); {элемент выбирается случайно от 0 до 100}</em>
<em> s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}</em>
<em> end;</em>
<em>for i:=1 to n do</em>
<em>writeln(a[i],' '); {показать сам массив}</em>
<em>writeln(s); {показать сумму}</em>
<em>readln; {чтобы окно сразу не закрывалось}</em>
<em>end.</em>
<em> </em>
