// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,8,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var sa:=a.Rows.SelectMany(x->x); Writeln('Положительные элементы:'); sa.Where(x->x>0).Println; Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x))); end.
#include <stdio.h>
int main() {
int a = -1;
while(a != 0)
scanf("%d", &a);
}
2)
#include <stdio.h>
#include <math.h>
int main() {
int a;
scanf("%d", &a);
int prime = 1;
for(int i = 2; i <= sqrt(a)+1; i++)
if(a%i == 0) {
prime = 0;
break;
} if((prime == 0 && a != 2) || a == 1) printf("NO\n");
else printf("YES\n");
}
3)
#include <stdio.h>
int main() {
int a[5];
for(int i = 0; i < 5; i++)
scanf("%d", &a[i]);
for(int i = 0; i < 5; i++)
printf("%d ", a[i]);
printf("\n");
}