program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
<span>При выключении компьютер информация из оперативной памяти не стирается.
На СD-RЗаписывать информацию возможно. Объем диска CD-ROM больше объема диска DVD-ROM.
Жесткий диск называют винчестером.</span>
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Ну вот как-то так, если что-то не ясно - спрашивай. Инициализации начальных элементов нет, так что без соответствующей правки она не заработает.
int main() {
// Something
int a[n][m];
// Init
// Находим максимум
int im = 0, jm = 0, max = a[0][0];
for (int i = 0 ; i < n; ++i)
for (int j = 0; j < m; ++j)
if (a[i][j] > max) {
max = a[i][j];
im = i;
jm = j;
}
// Двигаем максимум вниз
swapCollumn(a, n, m, im, n-1);
swapRow(a, n, m, jm, m-1);
}
//Премещаем 2 столбца местами
void swapCollumn(int ** a, int n, int m, int c1, int c2) {
if (c1 < 0 || c2 < 0 || c1 >= n || c2 >= n)
return;
for (int i = 0; i < m; ++i)
swap(&a[c1][i], &a[c2][i]);
}
//Перемещаем 2 строки местами
void swapRow(int ** a, int n, int m, int r1, int r2) {
if (r1 < 0 || r2 < 0 || r1 >= m || r2 >= m)
return;
for (int i = 0; i < n; ++i)
swap(&a[i][r1], &a[i][r2]);
}
void swap(int * el1, int el2) {
int t = *el1;
*el1 = *el2;
*el2 = *el1;
}