Const
N = 4;
C = 7;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
S:=0;
For i:= 1 to n do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j] < C then S:=S+A[i,j];
End;
WriteLn
End;
WriteLn('S = ',S);
End.
<span>#include <stdio.h>
#include <string.h>
int main(void)
{
char s[255];
char *w = NULL, *wmin = NULL;
unsigned min = 1024;
printf("Enter a string: ");
gets(s);
w = strtok(s, " ,.-");
while (w != NULL) {
if (strlen(w) < min) {
min = strlen(w);
wmin = w;
}
w = strtok(NULL, " ,.-");
}
if (wmin != 0) printf(<span>"\n\nMin word: '%s'\nLength: %isymbols\n"</span>, wmin, min);
<span>}</span></span>
6
закрасить
нц 3 раза
влево; закрасить
кц
нц 4 раза
вниз; закрасить
кц
нц 2 раза
вправо; закрасить
кц
нц 2 раза
вверх; закрвсить
кц
влево; закрасить
<span>Считаем количество символов в сообщении:</span>