Program gt;
var n,i,j:integer;
a:array[1..100,1..100]of real;
s:real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if(i=j)then s:=s+a[i,j];
end;
writeln(s);
end.
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Тема моего проекта "Видеокарта". Я выбрал эту тему, потому что я считаю, что это является острой темой при сборке ПК. Цель моей работы - рассказать, как правильно выбрать видеокарту и как за ней ухаживать. Проектным продуктом будет - корпус ПК. Этот продукт поможет достичь цель проекта, так как он поможет наглядно показать, какую важнейшую роль играет видеокарта. Я начал свою работу с того, что рассказал подробно о видеокарте, из чего она состоит. Потом я приступил к рассказу инструкции о правильной установке видеокарты в ПК и установке драйверов на видеокарту. Я завершил работу тем, что рассказал, как выбрать правильную видеокарту перед покупкой в магазине. Работа над проектом показала мне, что видеокарта - крайне важный элемент в ПК.
Отец сказал: "Сынок,после школы зайди в магазин и купи хлеб с молоком".
Получил задание - Сохранил в памяти - Выполнил задание
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS