Если C++ то вот
#include"stdafx.h"
#include <iostream>
#include <math.h>
#include "conio.h"
using namespace std;
void main()
{
double A[4][4]={{2.,1.,-4.,7.},{8.,2.,16.,9.,},{-7.,-1.,0.,-2.,},{4.,-3.,-5.,0.9}}tmp,tmp2;
int i,j,jmin,imin,k=0;
printf("\n matrica a[4][4]:\n");
for(i=0;i<=3;i++)
{
for(j=0;j<=3;j++)
{
printf("%5.2f\t",A[i][j]);
}
printf("\n");
}
{
for(j=0;j<=3;j++)
{
//замена 1 и 2 строк
tmp=A[0][j]
A[0][j]=A[1][j]
A[1][j]=tmp
//замена 3-й и 4-й строки
tmp=A[2][j]
A[2][j]=A[3][j]
A[3][j]=tmp
}
printf("\n novaya matrica a[4][4]:\n");
for(i=0;i<=3;i++)
{
for(j=0;j<=3;j++)
{
printf("%5.2f\t",A[i][j]);
}
printf("\n");
}
char st;
cin>>st; }
program z1; (Начало программы)
var n, s, i, c:integer; (Раздел описания переменных, n(кол-во чисел), s(сумма чисел), i(счетчик), с(число, введенное с клавиатуры))
begin (тело программы)
writeln ('Кол-во чисел?'); (подсказка для пользавателя)
readln (n); (считывание переменной)
s:=0; (обнуляем переменную)
For i:= 1 to n do begin (цикл будет повторяться от 1 до N; т.к в цикле будет несколько действий открываем операторные скобки (begin\end), начало цикла)
writeln ('Введите число'); (подсказка для пользавателя)
readln(c); (считывание переменной)
If c>0 then s:=s+c; (если с>0 тогда к сумме мы прибавляем число)
end; (конец цикла)
writeln ('Сумма=',s); (подсказка для пользавателя и ответ)
readln(s); (считывание переменной)
readln; (считывание)
end.(конец программы)
