Получится насыщенный серый цвет. Ниже привожу пример создала в иллюстраторе.
//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real
В разделе описаний добавь еще одну переменную с типа integer
и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки}
for i := 1 to 5 do
begin
for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j];
Write(b[i], ' ')
end;
WriteLn;
{сортируем массив b}
for i := 1 to 4 do
for i+1 := 1 to 5 do
if b[i] < b[j] then
begin
c := b[i];
b[i] := b[j];
b[j] := c
end;
{выводим отсортированный массив на экран}
for i := i to 5 do Write(b[i], ' ');
WriteLn
END.
Ответ:
Ростелеком
Объяснение:
Ростелеком в январе 2006 купили за 100, а продали в марте 2007 за 200 (+100)
Роснефть в январе 2006 купили за 200, а продали в марте 2007 за 225 (+25)
Газпром в январе 2006 купили за 250, а продали в марте 2007 за 275 (+25)
Экран дисплея. Ну нпр картинка выводится на экране.
Ответ: В
