Вариант
1) Поиск последнего минимального элемента
Массив А из 10 элементов заполнить целыми случайными числами от 1 до 9. Найти последний минимальный элемент.
Что следует изменить в предыдущей программе, чтобы найти последний из минимальных элементов?
Сохранить под именем
Последний минимальный.pas
2) В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 56; Dat[2] := 70;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 22;
Dat[7] := 30; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 20;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k];
end;
writeln(m);
End.
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
А давайте!) Я пишу на C, но алгоритм лёгок, и его запросто можно перевести на другой язык.
Итак.
int mas [3]; //объявляем массив
mas[0]=1;
mas[1]=2;
mas[2]=3; //присваиваем элементам значения
int i=0; //переменная для цикла
for(i=0; i<sizeof(mas)-1; i++){ //пробегаемся по всем элементам массива
if(mas[i]%2==0){ // если остаток от деления - 0, то число четное
mas[i]=mas[i]*mas[i];
}else{ // для нечетных
mas[i]=mas[i]*2;
}
}
Ну вот. В принципе, должно работать. Если чего-то непонятно - напишите :)