Значения двух массивов A и B с индексами от 1 до 100 задаются при следующего фрагмента программы:
var k,n,i,r:integer;
a,b:array [1..100] of integer;
begin
n:=100;
for i:= 1 to n do
A[i]:= (i-51)*(i-51);
for i:= 1 to n do begin
B[101-i]:=A[i];
end;
r:=0;
for i:= 1 to n do
if b[i]>=r then k:=i;
write (k);
end.
Какой элемент массива B будет наибольшим?
1) B[1]
2) B[26]
3) B[75]
4) B[100]
#!/bin/bash
a=$true
while ($a)
do
clear
echo "1. Enter path"
echo "2. Enter file extension"
echo "3. Copy file"
echo "4. Exit"
read VAR
clear
if [[ $VAR -eq 1 ]]
then
echo "enter path"
read path
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 2 ]]
then
echo "Enter file extension"
read fex
cd $path
ls *.$fex
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 3 ]]
then
echo "enter path to copy file"
read pathcopy
cp -R $path/*.$fex $pathcopy
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 4 ]]
then
echo "Exit"
read -p "Нажмите ENTER для продолжения"
let "a=false"
fi
done
Объяснение: