1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do write(random(11),' ');
end.
Пример:
10
5 2 9 5 7 2 10 0 1 6
2.
var s,i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('s = ',s);
end.
Результат:
s = 55
Я так понял, что это нужно написать на ЯП Pascal
Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости.
Работает стабильно, хоть и всегда можно реализовать как-то еще проще :)
upd: обновил фалы, теперь всё написано как надо
В задании ошибка:
41 в 10= 231 (НЕТ ВЕРНЫХ ОТВЕТОВ)
Верно такой вариант:
41 в 10=221 в 4
1.
var p,s:real; k:integer;
begin
write('цена тетради в клетку = ');
readln(p);
write('количество тетрадей = ');
readln(k);
s:=p*k;
writeln('Стоимость покупки = ',s:5:2);
end.
Пример:
<span>цена тетради в клетку = 12.5
количество тетрадей = 3
Стоимость покупки = 37.50
2.
алг Покупка
нач
вещ цена, стоимость
цел кол
вывод "цена тетради в клетку:", нс
ввод цена
вывод "количество тетрадей:", нс
ввод кол
стоимость:=цена*кол
вывод "Стоимость покупки = ", стоимость
кон</span>
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];
В чём дело? Идём в паскаль, набираем программу, запускаем и смотрим на результат. Программа должна выдавать значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5]; К примеру у меня 2673