ответы на следующие задания (сразу ответ):
5 Задание :
бублик--12
пирожок--24
творожник--15
творожное--36
6 Задание
1-4
2-1
3-2
4-3
7 Задание
50.45
8 Задание
Лотерейный билет ( НЕ ТОЧНО!)
9 Задание
переплата останется без изменения (это точно!)Объяснение:
можно вопрос?
это какая оценка?
program noname;
uses crt;
var
a:array[1..1000,1..1000] of integer;
i,j,min,n,m,l:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
writeln;
for i:=1 to n do begin
min:=0;
for j:=1 to m do
if min>a[i,j] then begin min:=a[i,j]; l:=j; end;
if min<>0 then
writeln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)
else writeln ('v ',i,' stroke otricatelnyh chisel net');
end;
readkey;
end.
На входе вводим с клавиатуры размерность массива: n строк и m столбцов.
Первые два вложенных цикла - это ввод двумерного массива с датчика случайных чисел randomize.
Далее во вложенных циклах ищем максимальную сумму элементов по строкам и запоминаем номер строки в переменную k.
Строку с выводом s и k писать не нужно.
Далее один цикл обмена к-той строки и последней.
Последние вложенные циклы выводят изменённый массив.
Прежде чем выводить массив нужно поставить поверку:
If k=m then write(‘Менять строки местами не нужно’) else begin и последние два вложенных цикла.
1) s1+2*c+3*d 2) s1+c+2*d
Объяснение:
a,b,c,d = 1800, 3000, 450, 500
s1 = a+b+c+d
s22 = s1+2*c+3*d
s24 = s1+c+2*d
res2 = s22/s1
res4 = s24/s1
print(res2)
print(res4)